Expected Value of Perfect Information (EVPI)
calc_evpi is used to compute the expected value of perfect information
(EVPI) from a probabilistic sensitivity analysis (PSA) dataset.
calc_evpi(psa, wtp, pop = 1)
psa |
psa object from |
wtp |
numeric vector with willingness-to-pay (WTP) thresholds |
pop |
scalar that corresponds to the total population |
A data frame and evpi object with the EVPI at each WTP threshold.
evpi calculates the value of eliminating all the uncertainty of a
cost-effectiveness analysis at each WTP threshold.
# load psa object provided with package
data("example_psa_obj")
# define wtp threshold vector (can also use a single wtp)
wtp <- seq(1e4, 1e5, by = 1e4)
evpi <- calc_evpi(example_psa_obj, wtp)
plot(evpi) # see ?plot.evpi for options
# can use plot options (# see ?plot.evpi for details)
plot(evpi, effect_units = "QALE")
# or can use ggplot layers
plot(evpi) + ggtitle("Expected Value of Perfect Information")Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.