### copy data into 'dat' and examine data
dat <- dat.bangertdrowns2004
dat[1:10,-13]
if (FALSE) {
### load metafor package
library(metafor)
### fit random-effects model
res <- rma(yi, vi, data=dat)
res
### some examples of mixed-effects meta-regression models
res <- rma(yi, vi, mods = ~ factor(grade), data=dat)
res
res <- rma(yi, vi, mods = ~ length, data=dat)
res
res <- rma(yi, vi, mods = ~ info + pers + imag + meta, data=dat)
res
}
Run the code above in your browser using DataLab