est <- c(1.74, 1.83, 0.482)
se <- c(.483, .421, .395)
n <- c(40, 40, 40)
v <- c(.5, .5, -1)
ci.lc.reg(.05, est, se, n, 4, v)
# Should return:
# Estimate SE t df p LL UL
# 1.303 0.5085838 2.562016 78.8197 0.01231256 0.2906532 2.315347
Run the code above in your browser using DataLab