#################
### Data generation
dn <- as.cld(gald())
### Trying several clusters number and several starting condition
kml(dn)
### Display the quality criterion, both way :
par(mfrow=c(1,2))
plotCriterion(dn)
plotCriterion(dn,allCrit=TRUE)
Run the code above in your browser using DataLab