## 95%/85% 2-sided Bayesian normal tolerance limits for
## a sample of size 100.
set.seed(100)
x <- rnorm(100)
out <- bayesnormtol.int(x = x, alpha = 0.05, P = 0.85,
side = 2, method = "EXACT",
hyper.par = list(mu.0 = 0,
sig2.0 = 1, n.0 = 10, m.0 = 10))
out
plotly_controltol(out, x, x.lab = "Normal Data")
Run the code above in your browser using DataLab