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