head(dat.linde2015)
# \donttest{
# Transform data from arm-based format to contrast-based format
# Outcome: early response
pw1 <- pairwise(list(treatment1, treatment2, treatment3),
event = list(resp1, resp2, resp3),
n = list(n1, n2, n3),
studlab = id, data = dat.linde2015, sm = "OR")
pw1
# Define order of treatments
trts <- c("TCA", "SSRI", "SNRI", "NRI", "Low-dose SARI",
"NaSSa", "rMAO-A", "Hypericum", "Placebo")
# Conduct random effects network meta-analysis
net1 <- netmeta(pw1, common = FALSE, reference = "Placebo", seq = trts)
print(net1, digits = 2)
# }
Run the code above in your browser using DataLab