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 exttol.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
.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.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