exttol.int(x, alpha = 0.05, P = 0.99, side = 1, dist = c("Weibull", "Gumbel"), ext = c("min", "max"), NR.delta = 1e-8)1-alpha is the confidence level.side = 1 or side = 2,
respectively).dist = "Weibull" or dist = "Gumbel" if the data is distributed according
to the Weibull or extreme-value distribution, respectively.dist = "Gumbel", then select which extreme is to be modeled for the Gumbel distribution. The
Gumbel distribution for the minimum (i.e., ext = "min") corresponds to a left-skewed distribution and the
Gumbel distribution for the maximum (i.e., ext = "max") corresponds to a right-skewed distributionexttol.int returns a data frame with items:
dist = "Weibull" or for the location parameter if
dist = "Gumbel".dist = "Weibull" or dist = "Gumbel".side = 1.side = 1.side = 2.side = 2.If dist = "Weibull", then the natural logarithm of the data are taken so that a Newton-Raphson algorithm can
be employed to find the MLEs of the extreme-value distribution for the minimum and then the data and MLEs are transformed back appropriately.
No transformation is performed if dist = "Gumbel". The Newton-Raphson algorithm is initialized by the method of moments
estimators for the parameters.
Coles, S. (2001), An Introduction to Statistical Modeling of Extreme Values, Springer.
Weibull
## 85%/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, side = 1,
dist = "Weibull")
out
plottol(out, x, plot.type = "both", side = "lower",
x.lab = "Weibull Data")
Run the code above in your browser using DataLab