cor <- c(.40, .65, .60, .45)
se <- c(.182, .114, .098, .132)
x1 <- c(18, 25, 23, 19)
X <- matrix(x1, 4, 1)
meta.lm.cor.gen(.05, cor, se, X)
# Should return:
# Estimate SE z p
# b0 -0.47832153 0.63427931 -0.7541181 0.451
# b1 0.05047154 0.02879859 1.7525699 0.080
Run the code above in your browser using DataLab