data(cepha)
gr <- somgrid(3,3, "hexagonal")
set.seed(7)
x <- wccsom(cepha$patterns, grid = gr, trwidth = 20, rlen = 50,
FineTune = FALSE, keep.data = FALSE)
sombins <- wccassign(x, cepha$patterns)
Run the code above in your browser using DataLab