data('Hepta')
Data=Hepta$Data
# \donttest{
Distances=as.matrix(dist(Data))
Proj=PolarSwarm(Data)# }
if (FALSE) {
PlotProjectedPoints(Proj$ProjectedPoints,Hepta$Cls)}
Proj=PolarSwarm(as.matrix(dist(Data[1:20,])))
Run the code above in your browser using DataLab