# NOT RUN {
data(Senn2013)
#
# Generation of an object of class 'netmeta' with
# reference treatment 'plac', i.e. placebo based
# on a fixed effects model
#
net1 <- netmeta(TE, seTE, treat1, treat2, studlab,
data=Senn2013, sm="MD", reference="plac")
#
# Calculate measures based on a fixed effects model
#
nm1 <- netmeasures(net1)
#
# Plot of minimal parallelism versus mean path length
#
plot(nm1$meanpath, nm1$minpar, pch="",
xlab="Mean path length", ylab="Minimal parallelism")
text(nm1$meanpath, nm1$minpar, names(nm1$meanpath), cex=0.8)
# Generation of an object of class 'netmeta' with
# reference treatment 'plac' based on a random
# effects model
#
net2 <- netmeta(TE, seTE, treat1, treat2, studlab,
data=Senn2013, sm="MD", reference="plac", comb.random=TRUE)
#
# Calculate measures based on a random effects model
#
nm2 <- netmeasures(net2)
# }
Run the code above in your browser using DataLab