metadat (version 1.4-0)

dat.franchini2012: Studies on Dopamine Agonists to Reduce “Off-Time” in Patients with Advanced Parkinson Disease

Description

Results from 7 trials examining the effectiveness of four dopamine agonists and placebo to reduce “off-time” in patients with advanced Parkinson disease.

Usage

dat.franchini2012

Format

The data frame contains the following columns:

Study	character	study label
Treatment1	character	treatment 1
y1	numeric	treatment effect arm 1
sd1	numeric	standard deviation arm 2
n1	integer	sample size arm 1
Treatment2	character	treatment 2
y2	numeric	treatment effect arm 2
sd2	numeric	standard deviation arm 2
n2	integer	sample size arm 1
Treatment3	character	treatment 3
y3	numeric	treatment effect arm 3
sd3	numeric	standard deviation arm 2
n3	integer	sample size arm 1

Author

Guido Schwarzer, , https://github.com/guido-s/

Concepts

medicine, raw mean differences, network meta-analysis

Details

This network meta-analysis compared the effectiveness of four active treatments and placebo in patients with advanced Parkinson disease (Franchini et al., 2012). The outcome is mean lost work-time reduction in patients given dopamine agonists as adjunct therapy. The data are given as sample size, mean, and standard deviation in each trial arm.

This dataset was used as an example in the supplemental material of Dias et al. (2013) where placebo is coded as 1 and the four active drugs as 2 to 5.

Examples

### Show results from first three studies; third study is a three-arm
### study
head(dat.franchini2012, 3)

if (FALSE) {
### Load netmeta package
suppressPackageStartupMessages(library("netmeta"))

### Print mean differences with two digits
oldset <- settings.meta(digits = 2)

### Transform data from wide arm-based format to contrast-based
### format. Argument 'sm' must not be provided as the mean difference
### is the default in R function metacont() called internally.
pw <- pairwise(list(Treatment1, Treatment2, Treatment3),
  n = list(n1, n2, n3),
  mean = list(y1, y2, y3),
  sd = list(sd1, sd2, sd3),
  data = dat.franchini2012, studlab = Study, sm = "MD")

### Show calculated mean differences (TE) for first three studies
pw[1:5, c(3:7, 10, 1)]

### Conduct network meta-analysis
net <- netmeta(pw)
net

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

### Use previous settings
settings.meta(oldset)
}