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