library(kohonen)
data(wines)
kohmap <- som(wines, grid = somgrid(5, 5, "hexagonal"), rlen=100)
par(mfrow=c(1,2))
dists <- unit.distances(kohmap$grid, toroidal=FALSE)
plot(kohmap, type="property", property=dists[1,],
main="Distances to unit 1", zlim=c(0,4))
dists <- unit.distances(kohmap$grid, toroidal=TRUE)
plot(kohmap, type="property", property=dists[1,],
main="Distances to unit 1 (toroidal)", zlim=c(0,4))
Run the code above in your browser using DataLab