CEA(gnomes, insulationMethod, Costs, diffHATS, 1000, "acorns") |>
CEAC() |>
wtp(probability = 0.80)
CEA(gnomes, insulationMethod, Costs, diffHATS, 1000, "acorns") |>
CEAC() |>
wtp(threshold = 8)
Run the code above in your browser using DataLab