Calculate the expected loss at a range of willingness-to-pay thresholds
The expected loss is the quantification of the foregone benefits when choosing a suboptimal strategy given current evidence.
calc_exp_loss(psa, wtp)
psa |
object of class |
wtp |
vector of willingness to pay thresholds |
Visualize the expected loss at a variety of WTP thresholds using plot.exp_loss
.
object with classes exp_loss
and data.frame
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.
Eckermann S, Briggs A, Willan AR. Health technology assessment in the cost- disutility plane. Med Decis Making. 2008;28(2):172–181.
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)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.