if (FALSE) {
# Only consider studies including Face-to-face PST (to reduce
# runtime of example)
#
face <- subset(Linde2016, id %in% c(16, 24, 49, 118))
# Use pairwise() to transform data to comparison-based format
#
pw <- pairwise(treat = int,
event = resp, n = n, studlab = paste(author, year),
data = face, reference = "plac", sm = "OR")
# Conduct random effects network meta-analysis
#
nma <- netmeta(pw, common = FALSE)
# Additive model for treatment components (with placebo as inactive
# treatment)
#
cnma <- netcomb(nma, inactive = "placebo")
# Some complex interventions
#
ints <- c("F + TCA", "F + Plac", "SSRI + Plac + TCA")
netcomplex(cnma, ints)
#
forest(netcomplex(cnma, ints))
forest(netcomplex(cnma, ints), nchar.comps = 4)
# Component effects
#
forest(netcomplex(cnma, cnma$comps))
}
Run the code above in your browser using DataLab