y <- c(32, 47, 28, 15, 20, 41, 87)
ci.mean.gen(.05, y)
# Should return:
# Estimate SE LL UL
# Square-root 35.79395 8.141122 18.64498 58.48619
# Geometric 33.26410 7.633328 19.47124 56.82741
# Harmonic 29.07073 7.978149 19.35236 58.39602
Run the code above in your browser using DataLab