n1 <- c(50, 150, 150)
f1 <- c(16, 50, 25)
n2 <- c(50, 150, 150)
f2 <- c(7, 15, 20)
v <- c(1, -1, 0)
meta.lc.propratio2(.05, f1, f2, n1, n2, v)
# Should return:
# Estimate SE exp(Estimate) exp(LL) exp(UL)
# Contrast -0.3853396 0.4828218 0.6802196 0.2640405 1.752378
Run the code above in your browser using DataLab