f11 <- c(43, 56, 49)
f12 <- c(7, 2, 9)
f21 <- c(3, 5, 5)
f22 <- c(37, 54, 39)
v <- c(.5, .5, -1)
meta.lc.agree(.05, f11, f12, f21, f22, v)
# Should return:
# Estimate SE LL UL
# Contrast 0.1022939 0.07972357 -0.05396142 0.2585492
Run the code above in your browser using DataLab