# run clustering
resLearn <- mixtCompLearn(data.frame(x = rnorm(500)),
nClass = 1:3, criterion = "ICL",
nRun = 1, nCore = 1
)
# extract the model with 2 classes
clustModel <- extractMixtCompObject(resLearn, K = 2)
Run the code above in your browser using DataLab