dampack (version 1.0.0)

calc_evpi: Expected Value of Perfect Information (EVPI)

Description

calc_evpi is used to compute the expected value of perfect information (EVPI) from a probabilistic sensitivity analysis (PSA) dataset.

Usage

calc_evpi(psa, wtp, pop = 1)

Arguments

psa

psa object from make_psa_obj

wtp

numeric vector with willingness-to-pay (WTP) thresholds

pop

scalar that corresponds to the total population

Value

A data frame and evpi object with the EVPI at each WTP threshold.

Details

evpi calculates the value of eliminating all the uncertainty of a cost-effectiveness analysis at each WTP threshold.

See Also

plot.evpi, make_psa_obj

Examples

# NOT RUN {
# 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")
# }