netmeta (version 0.9-5)

parkinson: Network meta-analysis of treatments for Parkinson's disease

Description

Network meta-analysis comparing the effects of a number of treatments for Parkinson's disease.

The data are the mean lost work-time reduction in patients given dopamine agonists as adjunct therapy in Parkinson<U+2019>s disease. The data are given as sample size, mean and standard deviation in each trial arm. Treatments are placebo, coded 1, and four active drugs coded 2 to 5. These data are used as an example in the supplemental material of Dias et al. (2013).

Usage

data(parkinson)

Format

A data frame with the following columns:

Study

Study label

Treatment1

Treatment 1

y1

Treatment effect arm 1

sd1

Standard deviation arm 1

n1

Sample size arm 1

Treatment2

Treatment 2

y2

Treatment effect arm 2

sd2

Standard deviation arm 2

n2

Sample size arm 2

Treatment3

Treatment 3

y3

Treatment effect arm 3

sd3

Standard deviation arm 3

n3

Sample size arm 3

See Also

pairwise, metacont, netmeta, netgraph

Examples

# NOT RUN {
data(parkinson)

# Transform data from arm-based format to contrast-based format
p1 <- pairwise(list(Treatment1, Treatment2, Treatment3),
               n=list(n1, n2, n3),
               mean=list(y1, y2, y3),
               sd=list(sd1, sd2, sd3),
               data=parkinson, studlab=Study)
p1

# Conduct network meta-analysis
net1 <- netmeta(p1)
net1

# Draw network graphs
netgraph(net1, points=TRUE, cex.points=3, cex=1.5,
         thickness="se.fixed")
netgraph(net1, points=TRUE, cex.points=3, cex = 1.5,
         plastic=TRUE, thickness="se.fixed",
         iterate=TRUE)
netgraph(net1, points=TRUE, cex.points=3, cex = 1.5,
         plastic=TRUE, thickness="se.fixed",
         iterate=TRUE, start="eigen")
# }