m1 <- c(7.4, 6.9)
m2 <- c(6.3, 5.7)
sd1 <- c(1.7, 1.5)
sd2 <- c(2.3, 2.0)
n1 <- c(40, 20)
n2 <- c(40, 20)
meta.ave.meanratio2(.05, m1, m2, sd1, sd2, n1, n2, bystudy = TRUE)
# Should return:
# Estimate SE LL UL exp(Estimate)
# Average 0.1759928 0.05738065 0.061437186 0.2905484 1.192429
# Study 1 0.1609304 0.06820167 0.024749712 0.2971110 1.174603
# Study 2 0.1910552 0.09229675 0.002986265 0.3791242 1.210526
# exp(LL) exp(UL) df
# Average 1.063364 1.337161 66.26499
# Study 1 1.025059 1.345965 65.69929
# Study 2 1.002991 1.461004 31.71341
Run the code above in your browser using DataLab