# Calculate NB's at a willingness-to-pay threshold of 80000 per unit of effects
data("df_pa")
df_nmb <- calculate_nb(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",
wtp = 80000)
# Plot NMB's for each comparator
plot_nb(df = df_nmb,
NMB = TRUE,
comparators = TRUE)
Run the code above in your browser using DataLab