# NOT RUN {
### copy data into 'dat' and examine data
dat <- dat.laopaiboon2015
dat
### analysis using the Mantel-Haenszel method
rma.mh(measure="RR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, digits=3)
### calculate log risk ratios and corresponding sampling variances
dat <- escalc(measure="RR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat)
### random-effects model
res <- rma(yi, vi, data=dat)
res
### average risk ratio with 95% CI
predict(res, transf=exp)
# }
Run the code above in your browser using DataLab