# \donttest{
data(Senn2013)
net1 <- netmeta(TE, seTE, treat1, treat2, studlab,
data = Senn2013, sm = "MD")
# Test for asymmetry in 'comparison-adjusted' funnel plot not
# conducted as argument 'order' is missing
#
try(metabias(net1))
# Test for funnel plot asymmetry comparing active treatments with
# placebo
metabias(net1, order = "pl")
# Rank test
#
metabias(net1, 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(net1, order = ord)
# }
Run the code above in your browser using DataLab