dat.baker2009 | R Documentation |
Results from 39 trials examining pharmacologic treatments for chronic obstructive pulmonary disease (COPD).
dat.baker2009
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 |
This data set 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.
medicine, odds ratios, network meta-analysis, component network meta-analysis
Guido Schwarzer, sc@imbi.uni-freiburg.de, https://github.com/guido-s/
Baker, W. L., Baker, E. L., & Coleman, C. I. (2009). Pharmacologic treatments for chronic obstructive pulmonary disease: A mixed-treatment comparison meta-analysis. Pharmacotherapy: The Journal of Human Pharmacology and Drug Therapy, 29(8), 891–905. https://doi.org/10.1592/phco.29.8.891
pairwise
, metabin
,
netmeta
, netcomb
,
netmetabin
### Show first 6 rows of the dataset head(dat.baker2009) ## Not run: ### Load netmeta package suppressPackageStartupMessages(library(netmeta)) ### Print odds ratios and confidence limits with two digits 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) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.