n <- c(55, 190, 65, 35)
cor <- c(.40, .65, .60, .45)
meta.ave.cor(.05, n, cor, 0, bystudy = TRUE)
# Should return:
# Estimate SE LL UL
# Average 0.525 0.05113361 0.4176678 0.6178816
# Study 1 0.400 0.11430952 0.1506943 0.6014699
# Study 2 0.650 0.04200694 0.5594086 0.7252465
# Study 3 0.600 0.08000000 0.4171458 0.7361686
# Study 4 0.450 0.13677012 0.1373507 0.6811071
Run the code above in your browser using DataLab