# \donttest{
data(smokingcessation)
# Transform data from arm-based format to contrast-based format
#
pw1 <- pairwise(list(treat1, treat2, treat3),
event = list(event1, event2, event3), n = list(n1, n2, n3),
data = smokingcessation, sm = "OR")
# Conduct random effects network meta-analysis and show data frame
#
net1 <- netmeta(pw1, common = FALSE)
as.data.frame(net1)
data(Senn2013)
# Conduct network meta-analysis
#
net2 <- netmeta(TE, seTE, treat1, treat2, studlab,
data = Senn2013, sm = "MD")
as.data.frame(net2)
as.data.frame(net2, details = TRUE)
# }
Run the code above in your browser using DataLab