# NOT RUN {
data(Senn2013)
# Conduct fixed effects network meta-analysis
#
net1 <- netmeta(TE, seTE, treat1, treat2, studlab,
data = Senn2013, sm = "MD",
comb.random = FALSE)
print(net1, ref = "plac", digits = 3)
# Only show individual study results for multi-arm studies
#
print(net1, ref = "plac", digits = 3, truncate = multiarm)
# Only show first three individual study results
#
print(net1, ref = "plac", digits = 3, truncate = 1:3)
# Only show individual study results for Kim2007 and Willms1999
#
print(net1, ref = "plac", digits = 3,
truncate = c("Kim2007", "Willms1999"))
# Only show individual study results for studies starting with the
# letter "W"
#
print(net1, ref = "plac", digits = 3,
truncate = substring(studlab, 1, 1) == "W")
# }
# NOT RUN {
# Conduct random effects network meta-analysis
#
net2 <- netmeta(TE, seTE, treat1, treat2, studlab,
data = Senn2013, sm = "MD",
comb.fixed = FALSE)
print(net2, ref = "plac", digits = 3)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab