library(class)
library(som)
library(kohonen)
set.seed(0)
ud = read.csv("kendamaF_learn.csv",header=F)
ud2<-as.matrix (ud[,2:8])
rm <-matrix(rnorm(49*7),nrow=49,ncol=7)
som_model   <- som(ud2, somgrid(xdim=7, ydim=7,topo="hexa"),rlen=10000,alpha=0.05, radi=7,rm)
som_cluster <- cutree(hclust(dist(som_model$codes)), 3)
my_palette <- c("#ffffff", '#dddddd', '#ccccff', '#aaaaaa')
plot(som_model, type = "mapping", labels = ud[,1], bgcol = my_palette [som_cluster])
add.cluster.boundaries(som_model, som_cluster)


