data(Senn2013)
##
## Generation of an object of class 'netmeta' with
## reference treatment 'plac', i.e. placebo
##
net1 <- netmeta(TE, seTE, treat1, treat2, studlab,
data=Senn2013, sm="MD", reference="plac")
##
## Calculate measures
##
m <- netmeasures(net1)
##
## Plot of minimal parallelism versus mean path length
##
plot(m$meanpath, m$minpar, pch="",
xlab="Mean path length", ylab="Minimal parallelism")
text(m$meanpath, m$minpar, names(m$meanpath), cex=0.8)
Run the code above in your browser using DataLab