y <- c(30, 20, 15, 10, 10, 60, 20, 25, 20, 30, 10, 5, 50, 40, 20, 10,
0, 20, 50)
ci.sign(.05, y, 9)
# Should return:
# Estimate SE LL UL
# 0.826087 0.0790342 0.6711828 0.9809911
Run the code above in your browser using DataLab