### Generation of some data
cld1 <- generateArtificialLongData(c(15,15,15))
### Setting two different set of option :
(option1 <- parKml())
(option2 <- parKml(distanceName="maximum",centerMethod=function(x)median(x,na.rm=TRUE)))
### Running kml3d We suspect 2, 3, 4 or 5 clusters, we want 3 redrawing.
kml3d(cld1,4,1,toPlot="both",paramKml=option1)
kml3d(cld1,4,1,toPlot="both",paramKml=option2)
Run the code above in your browser using DataLab