## 90%/90% 1-sided Weibull tolerance intervals for a sample
## of size 150.
set.seed(100)
x <- rweibull(150, 3, 75)
out <- exttol.int(x = x, alpha = 0.15, P = 0.90, dist = "Weibull" , side = 1)
out
plotly_histtol(out, x, side = "lower", x.lab = "Weibull Data" , tol.lwd = 3)
Run the code above in your browser using DataLab