ud_t = read.csv("three_test.csv",header=F)
ud2_t<-as.matrix (ud_t [,2:4])
som_model_t   <- som(ud2_t, somgrid(xdim=2, ydim=2,topo="hexa"),rlen=0,alpha=0.00, radi=0, som_model$codes)
plot(som_model_t, type = "mapping", labels = ud_t [,1])

