m <- c(46.13, 29.19, 30.32, 49.15)
se <- c(6.361, 5.892, 4.887, 6.103)
v <- c(1, -1, -1, 1)
ci.lc.median.bs(.05, m, se, v)
# Should return:
# Estimate SE LL UL
# 35.77 11.67507 12.88727 58.65273
Run the code above in your browser using DataLab