som_model   <- som(ud2, somgrid(xdim=2, ydim=2,topo="hexa"),rlen=1000,alpha=0.01, radi=1,rm)
plot(som_model, type = "mapping", labels = ud[,1])
