### Creation of articficial data
cld1 <- gald(c(15,15,15))
### Clusterisation
kml(cld1,nbRedrawing=3)
### Selection of the clusterization we want
# (linux does not support getGraphicsEvent...
try(choice(cld1))
Run the code above in your browser using DataLab