### calculate log risk ratios and corresponding sampling variances
dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg)
### random-effects model
res1 <- rma(yi, vi, data=dat, method="ML")
### mixed-effects model with absolute latitude and publication year as moderators
res2 <- rma(yi, vi, mods = ~ ablat + year, data=dat, method="ML")
### compare fit statistics
fitstats(res1, res2)
### log-likelihoods
logLik(res1)
logLik(res2)
### deviances
deviance(res1)
deviance(res2)
### AIC, AICc, and BIC values
AIC(res1, res2)
AIC(res1, res2, correct=TRUE)
BIC(res1, res2)
Run the code above in your browser using DataLab