# install.packages("kohonen")

# create sample
null <- runif(50000,-0.01,0.01)
eins <- runif(50000, 0.99,1.01)
nne <- cbind(null,null,eins)	# 001
nen <- cbind(null,eins,null)	# 010
nee <- cbind(null,eins,eins)	# 011
enn <- cbind(eins,null,null)	# 100
sample <- rbind(nee,nen,nne,enn,ene)
colnames(sample) <- c("3.Bit","2.Bit","1.Bit")

library(kohonen)
sample.som <- som(data = sample, grid=somgrid(2,2,"hexagonal"))

# analyze mapping
plot(sample.som)
table(sample.som$unit.classif)

#plot(sample.som, type="count")
plot(sample.som, type="quality")