data("nma.baker2009")
# Read results from 'run_sensitivity' (using the default arguments)
res_sens <- readRDS(system.file('extdata/res_sens_baker.rds',
package = 'rnmamod'))
# Calculate the robustness index
robust <- robustness_index(sens = res_sens,
threshold = 0.28)
# The names of the interventions in the order they appear in the dataset
interv_names <- c("placebo", "budesonide", "budesonide plus formoterol",
"fluticasone", "fluticasone plus salmeterol",
"formoterol", "salmeterol", "tiotropium")
# Create the heatmap of robustness
heatmap_robustness(robust = robust,
drug_names = interv_names)
Run the code above in your browser using DataLab