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