### calculate log odds ratios and corresponding sampling variances
dat <- escalc(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat.lee2004)
dat
### meta-analysis based on log odds ratios
res <- rma(yi, vi, data=dat)
res
### funnel plot as in Henmi and Copas (2010)
funnel(res, yaxis="seinv", refline=0, xlim=c(-3,3), ylim=c(.5,3.5), steps=7, digits=1, back="white")
### use method by Henmi and Copas (2010) as a sensitivity analysis
hc(res)
### back-transform results to odds ratio scale
hc(res, transf=exp)
Run the code above in your browser using DataLab