# NOT RUN {
if (require("actuar")) {
set.seed(123)
y <- c(rexp(100, 10), rexp(100, 1))
ex <- flexmix(y ~ 1, cluster = rep(1:2, each = 100), model = FLXMCdist1(dist = "exp"))
parameters(ex)
}
# }
Run the code above in your browser using DataLab