metadat (version 1.4-0)

dat.dorn2007: Studies on Complementary and Alternative Medicine for Irritable Bowel Syndrome

Description

Results from 19 trials examining complementary and alternative medicine (CAM) for irritable bowel syndrome (IBS).

Usage

dat.dorn2007

Format

The data frame contains the following columns:

id	numeric	trial id number
study	character	(first) author
year	numeric	publication year
country	character	country where trial was conducted
ibs.crit	character	IBS diagnostic criteria (Manning, Rome I, Rome II, or Other)
days	numeric	number of treatment days
visits	numeric	number of practitioner visits
jada	numeric	Jadad score
x.a	numeric	number of responders in the active treatment group
n.a	numeric	number of participants in the active treatment group
x.p	numeric	number of responders in the placebo group
n.p	numeric	number of participants in the placebo group

Author

Wolfgang Viechtbauer, , https://www.metafor-project.org

Concepts

medicine, alternative medicine, risk ratios

Details

The dataset includes the results from 19 randomized clinical trials that examined the effectiveness of complementary and alternative medicine (CAM) for irritable bowel syndrome (IBS).

Examples

### copy data into 'dat' and examine data
dat <- dat.dorn2007
dat

if (FALSE) {
### load metafor package
library(metafor)

### calculate log risk ratios and corresponding sampling variances
dat <- escalc(measure="RR", ai=x.a, n1i=n.a, ci=x.p, n2i=n.p, data=dat)

### random-effects model
res <- rma(yi, vi, data=dat, digits=2, method="DL")
res

### estimated average risk ratio
predict(res, transf=exp)

### funnel plot with study 5 highlighted in red
funnel(res, atransf=exp, at=log(c(0.1, 0.2, 0.5, 1, 2, 5, 10)),
       ylim=c(0,1), steps=6, las=1, col=ifelse(id == 5, "red", "black"))

### change log risk ratio for study 5
dat$yi[5] <- -0.44

### results are now more in line with what is reported in the paper
### (although the CI in the paper is not wide enough)
res <- rma(yi, vi, data=dat, digits=2, method="DL")
predict(res, transf=exp)

### funnel plot with study 5 highlighted in red
funnel(res, atransf=exp, at=log(c(0.1, 0.2, 0.5, 1, 2, 5, 10)),
       ylim=c(0,1), steps=6, las=1, col=ifelse(id == 5, "red", "black"))
}