### copy data into 'dat' and examine data
dat <- dat.cohen1981
dat[c(1,4,5)]
if (FALSE) {
### load metafor package
library(metafor)
### calculate r-to-z transformed correlations and corresponding sampling variances
dat <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat[c(1,4,5)])
dat
### meta-analysis of the transformed correlations using a random-effects model
res <- rma(yi, vi, data=dat, digits=2)
res
### predicted average correlation with 95% CI
predict(res, transf=transf.ztor)
}
Run the code above in your browser using DataLab