f11 <- c(17, 28, 19)
f12 <- c(43, 56, 49)
f21 <- c(3, 5, 5)
f22 <- c(37, 54, 39)
v <- c(.5, .5, -1)
meta.lc.prop.ps(.05, f11, f12, f21, f22, v)
# Should return:
# Estimate SE LL UL
# Contrast -0.01436285 0.06511285 -0.1419817 0.113256
Run the code above in your browser using DataLab