data('Hepta')
#2d projection
# Visualizuation of GeneralizedUmatrix
# \donttest{
projectionpoints=NeRV(Hepta$Data)
#Computation of Generalized Umatrix
library(GeneralizedUmatrix)
visualization=GeneralizedUmatrix(Data = Hepta$Data,projectionpoints)
# }
## Semi-Automatic Clustering done interactivly in a shiny gui
if (FALSE) {
Cls = interactiveClustering(visualization$Umatrix, visualization$Bestmatches)
##Plotting
plotTopographicMap(visualization$Umatrix,visualization$Bestmatches,Cls)
}
Run the code above in your browser using DataLab