# compute meta-analytic effect sizes
require(metafor)
dat <- metafor::escalc(measure = "RR", ai = tpos, bi = tneg, ci = cpos,
di = cneg, data = dat.bcg)
# flip signs since we think publication bias favors negative effects
dat$yi <- -dat$yi
pval_plot(yi = dat$yi, vi = dat$vi)
Run the code above in your browser using DataLab