dampack (version 1.0.0)

calc_exp_loss: Calculate the expected loss at a range of willingness-to-pay thresholds

Description

The expected loss is the quantification of the foregone benefits when choosing a suboptimal strategy given current evidence.

Usage

calc_exp_loss(psa, wtp)

Arguments

psa

object of class psa, produced by function make_psa_obj

wtp

vector of willingness to pay thresholds

Value

object with classes exp_loss and data.frame

Details

Visualize the expected loss at a variety of WTP thresholds using plot.exp_loss.

References

1. Alarid-Escudero F, Enns EA, Kuntz KM, Michaud TL, Jalal H. "Time Traveling Is Just Too Dangerous" But Some Methods Are Worth Revisiting: The Advantages of Expected Loss Curves Over Cost-Effectiveness Acceptability Curves and Frontier. Value Health. 2019;22(5):611-618.

2. Eckermann S, Briggs A, Willan AR. Health technology assessment in the cost- disutility plane. Med Decis Making. 2008;28(2):172<U+2013>181.

See Also

plot.exp_loss, make_psa_obj

Examples

# NOT RUN {
data("example_psa_obj")
wtp <- seq(1e4, 1e5, by = 1e4)
exp_loss <- calc_exp_loss(example_psa_obj, wtp)

# can use head(), summary(), print(), etc.
head(exp_loss)

# plot an expected loss curve (ELC)
plot(exp_loss)

# the y axis is on a log scale by default
plot(exp_loss, log_y = FALSE)
# }