y <- c(30.2, 20.4, 15.1, 10.2, 10.5, 60.8, 20.8, 25.0, 20.7, 30.9, 10.8, 5.1,
50.9, 40.0, 20.9, 10.8, 0, 20.5, 50.8)
ci.median(.05, y)
# Should return:
# Estimate SE LL UL
# 20.7 4.292277 10.8 30.9
Run the code above in your browser using DataLab