n1 <- c(204, 201, 932, 130, 77)
n2 <- c(106, 103, 415, 132, 83)
f1 <- c(24, 40, 93, 14, 5)
f2 <- c(12, 9, 28, 3, 1)
x1 <- c(4, 4, 5, 3, 26)
x2 <- c(1, 1, 1, 0, 0)
X <- matrix(cbind(x1, x2), 5, 2)
meta.lm.propratio2(.05, f1, f2, n1, n2, X)
# Should return:
# Estimate SE z p LL UL
# b0 1.4924887636 0.69172794 2.15762393 0.031 0.13672691 2.84825062
# b1 0.0005759509 0.04999884 0.01151928 0.991 -0.09741998 0.09857188
# b2 -1.0837844594 0.59448206 -1.82307345 0.068 -2.24894789 0.08137897
# exp(Estimate) exp(LL) exp(UL)
# b0 4.4481522 1.1465150 17.257565
# b1 1.0005761 0.9071749 1.103594
# b2 0.3383128 0.1055102 1.084782
Run the code above in your browser using DataLab