---------------------
R}h14
---------------------
ud = read.csv("kendamaF_test.csv",header=F)
ud2<-as.matrix (ud[,2:8])
som_model   <- som(ud2, somgrid(xdim=7, ydim=7,topo="hexa"),rlen=0,alpha=0.05, radi=7,som_model$codes)
plot(som_model, type = "mapping", labels = ud[,1], bgcol = my_palette [som_cluster])
add.cluster.boundaries(som_model, som_cluster)
---------------------
