# \donttest{
y <- scale(mtcars)
sel <- model_selection(y, layers = 2, g = 3, seeds = c(1, 2, 12334),
it = 250, eps = 0.001, init = "kmeans", criterion = "BIC")
sel
summary(sel)
# }
Run the code above in your browser using DataLab