data(Senn2013)
#
# Fixed effect model (default)
#
net1 <- netmeta(TE, seTE, treat1, treat2, studlab, data=Senn2013)
net1
net1$Q.decomp
#
# Comparison with reference group
#
netmeta(TE, seTE, treat1, treat2, studlab, data=Senn2013,
reference="plac")
#
# Forest plot
#
forest(net1, ref="plac")
#
# Random effects model
#
net2 <- netmeta(TE, seTE, treat1, treat2, studlab, data=Senn2013,
comb.random = TRUE)
net2
forest(net2, ref="plac")
Run the code above in your browser using DataLab