if (FALSE) {
# Transform data from long arm-based to contrast-based format
#
pw <- pairwise(studlab = study, treat = treatment,
n = n, mean = mean, sd = sd, data = Senn2013,
varnames = c("MD", "seMD"))
# Conduct common effects network meta-analysis
#
nma <- netmeta(pw, random = FALSE, nchar.trts = 4)
np <- netpath(nma, node1 = "Placebo", node2 = "Sulfonylurea")
np
}
Run the code above in your browser using DataLab