### load BCG vaccine data
data(dat.bcg)
### meta-analysis of the log risk rates using a mixed-
### effects model with absolute latitude as moderator
res <- rma(ai=tpos, bi=tneg, ci=cpos, di=cneg, mods=cbind(ablat),
slab=paste(author, year), data=dat.bcg, measure="RR", method="REML")
### forest plot of the observed risk rates
forest(res, addfit=FALSE, atransf=exp, addrows=3, xlab="Relative Risk (log scale)")
### predicted log average risk rates for 10, 30, and 50 degrees absolute latitude
x <- predict(res, newmods=c(10, 30, 50))
### add predicted average risk rates to forest plot
addpoly(x$pred, sei=x$se, atransf=exp,
mlab=c("10 Degrees", "30 Degrees", "50 Degrees"))
Run the code above in your browser using DataLab