n <- c(45, 85, 50, 60)
cor <- c(.24, .35, .16, .20)
sdy <- c(12.2, 14.1, 11.7, 15.9)
sdx <- c(1.34, 1.87, 2.02, 2.37)
meta.ave.slope(.05, n, cor, sdy, sdx, bystudy = TRUE)
# Should return:
# Estimate SE LL UL df
# Average 1.7731542 0.4755417 0.8335021 2.712806 149.4777
# Study 1 2.1850746 1.3084468 -0.4536599 4.823809 43.0000
# Study 2 2.6390374 0.7262491 1.1945573 4.083518 83.0000
# Study 3 0.9267327 0.8146126 -0.7111558 2.564621 48.0000
# Study 4 1.3417722 0.8456799 -0.3510401 3.034584 58.0000
Run the code above in your browser using DataLab