# \donttest{
# Transform data from long arm-based to contrast-based format
#
pw <- pairwise(studlab = study, treat = treatment,
n = n, mean = mean, sd = sd, data = Senn2013,
varnames = c("MD", "seMD"))
# Conduct network meta-analysis
#
nma <- netmeta(pw)
# Test for asymmetry in 'comparison-adjusted' funnel plot not
# conducted as argument 'order' is missing
#
try(metabias(nma))
# Test for funnel plot asymmetry comparing active treatments with
# placebo
metabias(nma, order = "pl")
# Rank test
#
metabias(nma, order = "pl", method.bias = "Begg")
# Test for funnel plot asymmetry based on (non-sensical) alphabetic
# order of treatments with placebo as last treatment
#
ord <- c("a", "b", "me", "mi", "pi", "r", "si", "su", "v", "pl")
metabias(nma, order = ord)
# }
Run the code above in your browser using DataLab