### Move to tempdir
wd <- getwd()
setwd(tempdir()); getwd()
### Creation of an object ClusterLongData
myCld <- gald(20)
### Computation of some partition
kml(myCld,2:4,3)
### Extraction form the list of partition with 3 clusters
### of the second clustering
getClusters(myCld,3,2)
### Go back to current dir
setwd(wd)
Run the code above in your browser using DataLab