est <- c(3.86, 4.57, 2.29, 2.88)
se <- c(0.185, 0.365, 0.275, 0.148)
v <- c(.5, .5, -.5, -.5)
ci.lc.gen.bs(.05, est, se, v)
# Should return:
# Estimate SE LL UL
# 1.63 0.2573806 1.125543 2.134457
Run the code above in your browser using DataLab