data(Woods2010)
# Transform data from long arm-based format to contrast-based
# format Argument 'sm' has to be used for odds ratio as summary
# measure; by default the risk ratio is used in the metabin
# function called internally.
#
p1 <- pairwise(treatment, event = r, n = N,
studlab = author, data = Woods2010, sm = "OR")
p1
# Conduct network meta-analysis
#
net1 <- netmeta(p1)
net1
if (FALSE) {
# Show forest plot
#
forest(net1, ref = "Placebo", drop = TRUE,
leftlabs = "Contrast to Placebo")
}
Run the code above in your browser using DataLab