## 99\%/99\% 1-sided gamma tolerance intervals for a sample
## of size 50.
set.seed(100)
x <- rgamma(50, 0.30, scale = 2)
out <- gamtol.int(x = x, alpha = 0.01, P = 0.99, side = 1,
method = "HE")
out
plottol(out, x, plot.type = "both", side = "upper",
x.lab = "Gamma Data")
Run the code above in your browser using DataLab