f <- c(38, 26, 24, 15, 45, 38)
n <- c(80, 60, 70, 50, 180, 200)
x1 <- c(10, 15, 18, 22, 24, 30)
X <- matrix(x1, 6, 1)
meta.lm.prop1(.05, f, n, X)
# Should return:
# Estimate SE z p LL UL
# b0 0.63262816 0.06845707 9.241239 0 0.49845477 0.766801546
# b1 -0.01510565 0.00290210 -5.205076 0 -0.02079367 -0.009417641
Run the code above in your browser using DataLab