### Some data easy to cluster
myCld <- gald(c(15,15,15),functionNoise=function(t){c(rnorm(1,0,1),rnorm(1,0,1))})
### run kml3d
kml3d(myCld,,3)
plot(myCld)
### Some clustering has been found several time
### regroup will suppress the duplicate one
regroup(myCld)
plot(myCld)
Run the code above in your browser using DataLab