# NOT RUN {
## create 'swiss' roll dataset
X = aux.gensamples(dname="swiss")
## try different k values
out1 = est.clustering(X, kmin=5)
out2 = est.clustering(X, kmin=25)
out3 = est.clustering(X, kmin=50)
## print the results
sprintf("* est.clustering : estimated dimension with kmin=5 is %.2f.",out1$estdim)
sprintf("* est.clustering : estimated dimension with kmin=25 is %.2f.",out2$estdim)
sprintf("* est.clustering : estimated dimension with kmin=50 is %.2f.",out3$estdim)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab