metadat (version 1.4-0)

dat.baker2009: Studies on Pharmacologic Treatments for Chronic Obstructive Pulmonary Disease

Description

Results from 39 trials examining pharmacologic treatments for chronic obstructive pulmonary disease (COPD).

Usage

dat.baker2009

Format

The data frame contains the following columns:

study	character	study label
year	numeric	year of publication
id	numeric	study ID
treatment	character	treatment
exac	numeric	number of individuals with one or more COPD exacerbations
total	numeric	number of individuals

Author

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

Concepts

medicine, odds ratios, network meta-analysis, component network meta-analysis

Details

This dataset comes from a systematic review of randomized controlled trials on pharmacologic treatments for chronic obstructive pulmonary disease (COPD) (Baker et al., 2009).

The primary outcome, occurrence of one or more episodes of COPD exacerbation, is binary (yes / no). For this outcome, five drug treatments (fluticasone, budesonide, salmeterol, formoterol, tiotropium) and two combinations (fluticasone + salmeterol, budesonide + formoterol) were compared to placebo. The authors considered the two combinations as separate treatments instead of evaluating the individual components.

Examples

### Show first 6 rows of the dataset
head(dat.baker2009)

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

### Print odds ratios and confidence limits with two digits
oldset <- settings.meta(digits = 2)

### Transform data from long 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.
pw <- pairwise(treatment, exac, total, studlab = paste(study, year),
  data = dat.baker2009, sm = "OR")

### Conduct random effects network meta-analysis (NMA)
### with placebo as reference
net <- netmeta(pw, fixed = FALSE, ref = "plac")

### Show network graph
netgraph(net, seq = "optimal", start = "prcomp",
  labels = gsub("+", " +\n", trts, fixed = TRUE),
  plastic = TRUE, thickness = "se.fixed", number = TRUE,
  points = TRUE, cex.points = 5, col.points = "red",
  offset = 0.025)

### Print and plot results for network meta-analysis
net
forest(net)

### Conduct component network meta-analysis (CNMA)
cnet <- netcomb(net)
cnet

### Compare results of NMA and additive CNMA
nb <- netbind(net, cnet, name = c("Standard NMA", "Additive CNMA"))
forest(nb)

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