netmeta (version 0.9-0)

smokingcessation: Network meta-analysis of interventions for smoking cessation

Description

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.

Usage

data(smokingcessation)

Format

A data frame with the following columns:

event1

Number of events in arm 1

n1

Number of observations in arm 1

event2

Number of events in arm 2

n2

Number of observations in arm 2

event3

Number of events in arm 3

n3

Number of observations in arm 3

treat1

Treatment 1

treat2

Treatment 2

treat3

Treatment 3

Source

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--656.

See Also

pairwise, metabin, netmeta, netgraph

Examples

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(TE, seTE, treat1, treat2, studlab, data=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)