n <- c(150, 200, 300, 200, 350)
cor <- c(.14, .29, .16, .21, .23)
x1 <- c(18, 25, 23, 19, 24)
X <- matrix(x1, 5, 1)
meta.lm.spear(.05, n, cor, X)
# Should return:
# Estimate SE z p LL UL
# b0 -0.08920088 0.26686388 -0.3342561 0.738 -0.612244475 0.43384271
# b1 0.01370866 0.01190212 1.1517825 0.249 -0.009619077 0.03703639
Run the code above in your browser using DataLab