# Vectors:
hours <- voltage$hours
status <- voltage$status
# Example 1 - Using result of mixmod_em:
mix_mod_em <- mixmod_em(
x = hours,
status = status
)
plot_weibull_em <- plot_prob_mix(
x = hours,
status = status,
distribution = "weibull",
mix_output = mix_mod_em
)
# Example 2 - Using result of mixmod_regression:
john <- estimate_cdf(
x = hours,
status = status,
method = "johnson"
)
mix_mod_reg <- mixmod_regression(
x = john$x,
y = john$prob,
status = john$status,
distribution = "weibull"
)
plot_weibull_reg <- plot_prob_mix(
x = hours,
status = status,
distribution = "weibull",
mix_output = mix_mod_reg
)
Run the code above in your browser using DataLab