n <- c(128, 97, 210, 217)
cor <- c(.35, .41, .44, .39)
r2 <- c(.29, .33, .36, .39)
meta.ave.semipart(.05, n, cor, r2, bystudy = TRUE)
# Should return:
# Estimate SE LL UL
# Average 0.3975 0.03221240 0.3325507 0.4586965
# Study 1 0.3500 0.07175200 0.2023485 0.4820930
# Study 2 0.4100 0.07886080 0.2447442 0.5521076
# Study 3 0.4400 0.05146694 0.3338366 0.5351410
# Study 4 0.3900 0.05085271 0.2860431 0.4848830
Run the code above in your browser using DataLab