m1 <- c(23.9, 24.1)
m2 <- c(25.1, 26.9)
sd1 <- c(1.76, 1.58)
sd2 <- c(2.01, 1.76)
cor <- c(.78, .84)
n <- c(25, 30)
meta.ave.stdmean.ps(.05, m1, m2, sd1, sd2, cor, n, 1, bystudy = TRUE)
# Should return:
# Estimate SE LL UL
# Average -1.1931045 0.1568034 -1.500433 -0.8857755
# Study 1 -0.6818182 0.1773785 -1.029474 -0.3341628
# Study 2 -1.7721519 0.2586234 -2.279044 -1.2652594
Run the code above in your browser using DataLab