# NOT RUN {
data('Hepta')
#2d projection
# Visualizuation of GeneralizedUmatrix
# }
# NOT RUN {
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
Cls = interactiveClustering(visualization$Umatrix, visualization$Bestmatches)
#Plotting
plotTopographicMap(visualization$Umatrix,visualization$Bestmatches,Cls)
# }
Run the code above in your browser using DataLab