### copy data into 'dat' and examine data
dat <- dat.nakagawa2007
dat
if (FALSE) {
### load metafor package
library(metafor)
### calculate Zr
dat <- escalc(measure="ZCOR", ri=Correlation, ni=SampleSize, data=dat)
### fit meta-analytic model
res <- rma.mv(yi, vi, random = ~ 1 | StudyID, data=dat)
res
}
Run the code above in your browser using DataLab