if (FALSE) {
# 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