health-economicslisted

# Health Economics Evaluation in R ## Overview Health economic evaluation methods covering cost-effectiveness analysis (CEA), quality-adjusted life years (QALYs), incremental cost-effectiveness ratios (ICERs), budget impact analysis, Markov cohort models, partitioned survival analysis, probabilistic sensitivity analysis, and value of information analysis. ## Cost-Effectiveness Fundamentals ### Basic Calculations ```r # Treatment comparison data # Intervention vs Comparator costs_int <- 15000 # Mean cost of intervention costs_comp <- 8000 # Mean cost of comparator effects_int <- 5.2 # Mean QALYs intervention effects_comp <- 4.5 # Mean QALYs comparator # Incremental calculations delta_cost <- costs_int - costs_comp # Incremental cost delta_effect <- effects_int - effects_comp # Incremental effect (QALYs) # Incremental Cost-Effectiveness Ratio (ICER) icer <- delta_cost / delta_effect cat("ICER:", round(icer, 0), "per QALY gained\n") # Net Monetary Benefit (NMB) at WTP threshold wtp <- 50000 # Willingness-to-pay threshold nmb <- delta_effect * wtp - delta_cost cat("NMB at WTP $", wtp, ":", round(nmb, 0), "\n") # Net Health Benefit (NHB) nhb <- delta_effect - delta_cost / wtp cat("NHB:", round(nhb, 3), "QALYs\n") ``` ### Cost-Effectiveness Plane ```r library(ggplot2) # Simulated incremental costs and effects set.seed(123) n_sim <- 1000 delta_c <- rnorm(n_sim, delta_cost, 2000) delta_e <- rnorm(n_sim, delta_effect, 0.3) ce_data <- data.frame(