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