### copy data into 'dat' and examine data
dat <- dat.white2020
head(dat, 10)
if (FALSE) {
### load metafor package
library(metafor)
### calculate r-to-z transformed correlations and corresponding sampling variances
dat <- escalc(measure="ZCOR", ri=r, ni=n, data=dat)
### fit multilevel meta-analytic model
res <- rma.mv(yi, vi, random = list(~ 1 | study_id, ~ 1 | obs), data=dat)
res
}
Run the code above in your browser using DataLab