n <- c(75, 85, 250, 160)
slope <- c(1.57, 1.38, 1.08, 1.25)
se <- c(.658, .724, .307, .493)
meta.ave.path(.05, n, slope, se, 2, bystudy = TRUE)
# Should return:
# Estimate SE LL UL df
# Average 1.32 0.2844334 0.75994528 1.880055 263.1837
# Study 1 1.57 0.6580000 0.25830097 2.881699 72.0000
# Study 2 1.38 0.7240000 -0.06026664 2.820267 82.0000
# Study 3 1.08 0.3070000 0.47532827 1.684672 247.0000
# Study 4 1.25 0.4930000 0.27623174 2.223768 157.0000
Run the code above in your browser using DataLab