### load BCG vaccine data
data(dat.bcg)
### calculate log relative risks and corresponding sampling variances
dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg)
dat <- cbind(dat.bcg, dat)
### random-effects model
res <- rma(yi, vi, data=dat, method="REML")
### permutation test (approximate and exact)
permutest(res)
permutest(res, exact=TRUE)
### mixed-effects model with two moderators (absolute latitude and publication year)
res1 <- rma(yi, vi, mods=cbind(ablat, year), data=dat, method="REML")
### permutation test (only approximate; exact not feasible)
permutest(res)
Run the code above in your browser using DataLab