# NOT RUN {
data(Senn2013)
# Fixed effects model
#
net1 <- netmeta(TE, seTE, treat1, treat2,
studlab, data = Senn2013,
comb.random = FALSE)
net1
net1$Q.decomp
# Forest plot
#
forest(net1, ref = "plac")
# }
# NOT RUN {
# Comparison with reference group
#
netmeta(TE, seTE, treat1.long, treat2.long,
studlab, data = Senn2013,
reference = "plac")
# Random effects model
#
net2 <- netmeta(TE, seTE, treat1, treat2, studlab, data = Senn2013,
comb.fixed = FALSE)
net2
forest(net2, ref = "plac")
# }
Run the code above in your browser using DataCamp Workspace