# NOT RUN {
data(prostate)
algo <- createAlgo(nInitPerClass = 50)
# run clustering
resLearn <- mixtCompLearn(prostate$data, prostate$model, algo, nClass = 2:5, criterion = "ICL",
nRun = 3)
summary(resLearn)
plot(resLearn)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab