# \donttest{
### Move to tempdir
wd <- getwd()
setwd(tempdir()); getwd()
### Generation of some data
cld1 <- generateArtificialLongData(25)
### We suspect 3, 4 or 6 clusters, we want 3 redrawing.
### We want to "see" what happen (so printCal and printTraj are TRUE)
kml(cld1,c(3,4,6),3,toPlot='both')
### 4 seems to be the best. We want 7 more redrawing.
### We don't want to see again, we want to get the result as fast as possible.
kml(cld1,4,10)
### Go back to current dir
setwd(wd)
# }
Run the code above in your browser using DataLab