### load data
dat <- get(data(dat.hackshaw1998))
### random-effects model using the log odds ratios
res <- rma(yi, vi, data=dat, method="DL")
res
### estimated average odds ratio with CI (and credibility/prediction interval)
predict(res, transf=exp, digits=2)
Run the code above in your browser using DataLab