n1 <- c(50, 150, 150)
n2 <- c(50, 150, 150)
f1 <- c(16, 50, 25)
f2 <- c(7, 15, 20)
v <- c(1, -1, 0)
meta.lc.prop2(.05, f1, f2, n1, n2, v)
# Should return:
# Estimate SE LL UL
# Contrast -0.05466931 0.09401019 -0.2389259 0.1295873
Run the code above in your browser using DataLab