# Reliability data preparation:
data <- reliability_data(
alloy,
x = cycles,
status = status
)
# Example 1 - Evaluating Log-Likelihood function of two-parametric weibull:
loglik_weib <- loglik_function(
x = data,
dist_params = c(5.29, 0.33),
distribution = "weibull"
)
# Example 2 - Evaluating Log-Likelihood function of three-parametric weibull:
loglik_weib3 <- loglik_function(
x = data,
dist_params = c(4.54, 0.76, 92.99),
distribution = "weibull3"
)
Run the code above in your browser using DataLab