## Not run:
# data(degelder)
# set.seed(1)
# geldermap <- wccsom(degelder$patterns, somgrid(6, 6, "hexagonal"))
# options(digits = 3)
# summary(geldermap, "unit", nr=1, properties = degelder$properties)
# ## End(Not run)
Run the code above in your browser using DataLab