### Creation of articficial data
cld1 <- as.cld(gald())
### Clusterisation
#kml(cld1,nbRedrawing=3,printCal=TRUE,printTraj=TRUE)
### Selection of the clusterization we want
# (note that "try" is for compatibility with CRAN only,
# you probably can use "choice(cld1)")
try(choice(cld1))
Run the code above in your browser using DataLab