# NOT RUN {
data("Lsun3D")
Data=Lsun3D$Data
InputDistances=as.matrix(dist(Data))
# }
# NOT RUN {
projection=Pswarm(InputDistances)
#autmatic Clustering without GeneralizedUmatrix visualization
Cls=DBSclustering(k=3, Data,
projection$ProjectedPoints, projection$LC,PlotIt=TRUE)
# }
# NOT RUN {
visualization=GeneratePswarmVisualization(Data,
projection$ProjectedPoints,projection$LC)
## Sometimes an automatic Clustering can be improved
## thorugh an interactive approach,
## e.g. if Outliers exist (see [Thrun/Ultsch, 2017])
library(ProjectionBasedClustering)
Cls2=ProjectionBasedClustering::interactiveClustering(visualization$Umatrix,
visualization$Bestmatches, Cls)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab