ud_test = read.csv("animalF_test.csv",header=F)
ud2_test<-normalize(ud_test[,2:6])
som_model_test   <- som(ud2_test, somgrid(xdim=5, ydim=5,topo="hexa"),rlen=1,alpha=0.00, radi=0,som_model$codes)
plot(som_model_test, type = "mapping", labels = ud_test[,1])
