# Plot NMB's at a 50,0000 euro WTP threshold for three strategies
data("df_pa")
df_pa$t_qaly_d_int2 <- df_pa$t_qaly_d_int * 1.5
df_pa$t_costs_d_int2 <- df_pa$t_costs_d_int * 1.5
plot_nb_mult(df = df_pa,
outcomes = c("t_qaly_d_int2", "t_qaly_d_int", "t_qaly_d_comp"),
costs = c("t_costs_d_int", "t_costs_d_int2", "t_costs_d_comp"),
wtp = 50000)
Run the code above in your browser using DataLab