# NOT RUN {
# Data loading:
data(heart)
# Cluster analysis without variable selection (number of clusters between 1 and 3)
res <- VarSelCluster(heart[,-13], 2, vbleSelec = FALSE)
# Get the ICL value
fitted(res)
# }
Run the code above in your browser using DataLab