y <- c(30, 20, 15, 10, 10, 60, 20, 25, 20, 30, 10, 5, 50, 40,
20, 10, 0, 20, 50)
ci.cqv(.05, y)
# Should return:
# Estimate SE LL UL
# 0.5 0.1552485 0.2617885 0.8841821
Run the code above in your browser using DataLab