data(Hepta)
# \donttest{
InputDistances=as.matrix(dist(Hepta$Data))
projection=Pswarm(InputDistances)
visualization=GeneratePswarmVisualization(Data = Hepta$Data,
projection$ProjectedPoints,projection$LC)
Cls=DBSclustering(k=7, Hepta$Data, visualization$Bestmatches,
visualization$LC,PlotIt=FALSE)
ClusteringAccuracy(Hepta$Cls,Cls,K=9)
# }
# \dontshow{
ClusteringAccuracy(Hepta$Cls,rep(1,length(Hepta$Cls)))
# }
Run the code above in your browser using DataLab