### copy data into 'dat' and examine data
dat <- dat.lee2004
dat
if (FALSE) {
### load metafor package
library(metafor)
### meta-analysis based on log risk ratios
res <- rma(measure="RR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat)
res
predict(res, transf=exp, digits=2)
}
Run the code above in your browser using DataLab