m <- c(33.5, 37.9, 38.0, 44.1)
sd <- c(3.84, 3.84, 3.65, 4.98)
n <- c(10, 10, 10, 10)
v <- c(.5, .5, -.5, -.5)
meta.lc.mean1(.05, m, sd, n, v, eqvar = FALSE)
# Should return:
# Estimate SE LL UL df
# Contrast -5.35 1.300136 -7.993583 -2.706417 33.52169
Run the code above in your browser using DataLab