# NOT RUN {
# Data loading:
data("heart")
# Cluster analysis with variable selection
object <- VarSelCluster(heart[,-13], 2, vbleSelec = TRUE, crit.varsel = "MICL")
# Get the MICL value
MICL(object)
# }
Run the code above in your browser using DataLab