data("nma.liu2013")
# \donttest{
# Read results from 'run_model' (using the default arguments)
res <- readRDS(system.file('extdata/res_liu.rds', package = 'rnmamod'))
# Read results from 'run_ume' (using the default arguments)
ume <- readRDS(system.file('extdata/ume_liu.rds', package = 'rnmamod'))
# The names of the interventions in the order they appear in the dataset
interv_names <- c("placebo", "pramipexole",
"serotonin norepinephrine reuptake inhibitor",
"serotonin reuptake inhibitor",
"tricyclic antidepressant", "pergolide")
# Plot the results from both models
ume_plot(full = res,
ume = ume,
drug_names = interv_names)
# }
Run the code above in your browser using DataLab