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.oddsratio(.05, f1, f2, n1, n2, v)
# Should return:
# Estimate SE exp(Estimate) exp(LL) exp(UL)
# Contrast -0.4596883 0.5895438 0.6314805 0.1988563 2.005305
Run the code above in your browser using DataLab