## Nonparametric 90%-expectation tolerance intervals
## for a sample of size 100.
set.seed(100)
x <- rexp(100, 5)
out <- npbetol.int(x = x, Beta = 0.90, side = 2,
upper = NULL, lower = NULL)
out
Run the code above in your browser using DataLab