Network meta-analysis of interventions for smoking cessation
Network meta-analysis comparing the effects of a number of interventions for smoking cessation.
These data are used as an example in Dias et al. (2013), page 651.
A data frame with the following columns:
| event1 | number of individuals with successful smoking cessation in arm 1 |
| n1 | number of individuals in arm 1 |
| event2 | number of individuals with successful smoking cessation in arm 2 |
| n2 | number of individuals in arm 2 |
| event3 | number of individuals with successful smoking cessation in arm 3 |
| n3 | number of individuals in arm 3 |
| treat1 | treatment 1 |
| treat2 | treatment 2 |
| treat3 | treatment 3 |
Dias S, Welton NJ, Sutton AJ, Caldwell DM, Lu G and Ades AE (2013): Evidence Synthesis for Decision Making 4: Inconsistency in networks of evidence based on randomized controlled trials. Medical Decision Making, 33, 641–56
data(smokingcessation)
# Transform data from 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(list(treat1, treat2, treat3),
event = list(event1, event2, event3),
n = list(n1, n2, n3),
data = smokingcessation,
sm = "OR")
p1
# Conduct network meta-analysis
#
net1 <- netmeta(p1)
net1
# Draw network graph
#
netgraph(net1, points = TRUE, cex.points = 3, cex = 1.25)
tname <- c("No intervention", "Self-help",
"Individual counselling", "Group counselling")
netgraph(net1, points = TRUE, cex.points = 3, cex = 1.25, labels = tname)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.