# Plot CEAC based on results from calculate_ceac()
data("df_pa")
df_ceac_p <- calculate_ceac(df = df_pa,
e_int = "t_qaly_d_int",
e_comp = "t_qaly_d_comp",
c_int = "t_costs_d_int",
c_comp = "t_costs_d_comp")
plot_ceac(df = df_ceac_p,
name_wtp = "WTP_threshold",
currency = "none")
Run the code above in your browser using DataLab