# Reliability data preparation:
data <- reliability_data(
shock,
x = distance,
status = status
)
# Parameter estimation using maximum likelihood:
mle <- ml_estimation(
data,
distribution = "weibull",
conf_level = 0.95
)
# Example 1 - Standard errors of standardized quantiles:
delta_y <- delta_method(
x = shock$distance,
dist_params = mle$coefficients,
dist_varcov = mle$varcov,
distribution = "weibull",
direction = "y"
)
# Example 2 - Standard errors of quantiles:
delta_x <- delta_method(
x = seq(0.01, 0.99, 0.01),
dist_params = mle$coefficients,
dist_varcov = mle$varcov,
distribution = "weibull",
direction = "x"
)
Run the code above in your browser using DataLab