# NOT RUN {
# Sample 20 observations from an Exponential distribution with mean=10.
print( sort( x <- rexp( 20, 0.1 ) ) )
# Construct 90% confidence intervals on the 25th, 50th, and 75th percentiles.
quantileCI( x, c( 0.25, 0.5, 0.75 ), 0.9 )
# }
Run the code above in your browser using DataLab