library(class)
library(som)
library(kohonen)
set.seed(1)
ud = read.csv("three.csv",header=F)
ud2<-as.matrix (ud[,2:4])
rm <-matrix(rnorm(12),nrow=4,ncol=3)
som_model   <- som(ud2, somgrid(xdim=2, ydim=2,topo="hexa"),rlen=100,alpha=0.05, radi=3,rm)
plot(som_model, type = "mapping", labels = ud[,1])
