# Vectors:
hours <- voltage$hours
status <- voltage$status
# Example 1 - EM algorithm with k = 2:
mix_mod_em <- mixmod_em(
x = hours,
status = status,
distribution = "weibull",
conf_level = 0.95,
k = 2,
n_iter = 150
)
#' # Example 2 - Maximum likelihood is applied when k = 1:
mix_mod_em_2 <- mixmod_em(
x = hours,
status = status,
distribution = "weibull",
conf_level = 0.95,
k = 1,
method = "EM",
n_iter = 150
)
Run the code above in your browser using DataLab