set.seed(4)
K <- 3
l <- 2
x <- as.matrix(iris[,-5])
# Run EM algorithm for fitting a conditioning mixture model
# \donttest{
obj <- cmb.em(x = x, order = c(1,2,3,4), l, K, method = "stepwise",
silent = TRUE, Parallel = FALSE)
cmb.plot(obj)
# }
Run the code above in your browser using DataLab