## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment  = "#>"
)
library(dceasimR)

## ----quick-start--------------------------------------------------------------
result <- run_aggregate_dcea(
  icer            = 28000,
  inc_qaly        = 0.45,
  inc_cost        = 12600,
  population_size = 12000,
  wtp             = 20000,
  opportunity_cost_threshold = 13000
)

summary(result)

## ----impact-plane, fig.width = 6, fig.height = 5------------------------------
plot_equity_impact_plane(result)