n <- c(55, 190, 65, 35)
cor <- c(.40, .65, .60, .45)
q <- 0
x1 <- c(18, 25, 23, 19)
X <- matrix(x1, 4, 1)
meta.lm.cor(.05, n, cor, q, X)
# Should return:
# Estimate SE z p LL UL
# b0 -0.47832153 0.48631509 -0.983563 0.325 -1.431481595 0.47483852
# b1 0.05047154 0.02128496 2.371231 0.018 0.008753794 0.09218929
Run the code above in your browser using DataLab