Last chance! 50% off unlimited learning
Sale ends in
Results from 22 trials examining the effectiveness of intravenous magnesium in the prevention of death following acute myocardial infarction.
dat.li2007
The data frame contains the following columns:
id | numeric |
trial id number |
study | character |
first author or trial name |
year | numeric |
publication year |
ai | numeric |
number of deaths in the magnesium group |
n1i | numeric |
number of patients in the magnesium group |
ci | numeric |
number of deaths in the control group |
The dataset includes the results from 22 randomized clinical trials that examined the effectiveness of intravenous magnesium in the prevention of death following acute myocardial infarction. It is similar to the dataset dat.egger2001
, with some slight differences in the included trials and data used.
# NOT RUN {
### copy data into 'dat' and examine data
dat <- dat.li2007
dat
### meta-analysis of all trials except ISIS-4
res <- rma(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, method="FE", subset=-14)
print(res, digits=2)
predict(res, transf=exp, digits=2)
### meta-analysis of all trials including ISIS-4
res <- rma(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, method="FE")
print(res, digits=2)
predict(res, transf=exp, digits=2)
### contour-enhanced funnel plot centered at 0
funnel(res, refline=0, level=c(90, 95, 99), shade=c("white", "gray", "darkgray"))
# }
Run the code above in your browser using DataLab