# NOT RUN {
data(Linde2016)
# Only consider studies including Face-to-face PST (to reduce
# runtime of example)
#
face <- subset(Linde2016, id %in% c(16, 24, 49, 118))
# Conduct random effects network meta-analysis
#
net1 <- netmeta(lnOR, selnOR, treat1, treat2, id,
data = face, reference.group = "placebo",
sm = "OR", comb.fixed = FALSE)
# Additive model for treatment components
#
nc1 <- netcomb(net1)
summary(nc1)
print(summary(nc1), digits = 2, digits.zval = 3)
# }
# NOT RUN {
# Conduct random effects network meta-analysis
#
net2 <- netmeta(lnOR, selnOR, treat1, treat2, id,
data = Linde2016, reference.group = "placebo",
sm = "OR", comb.fixed = FALSE)
# Additive model for treatment components
#
nc2 <- netcomb(net2)
summary(nc2)
print(summary(nc2), digits = 2, digits.zval = 3)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab