data(cepha)
gr <- somgrid(3,3, "hexagonal")
X <- bucket(cepha$patterns, 4)
system.time(x <- wccsom(X, grid=gr, trwidth=5,
rlen=500, FineTune=FALSE))
## this is much faster than the following code:
## Not run:
# set.seed(7)
# system.time(x <- wccsom(cepha$patterns, grid=gr, trwidth=20,
# rlen=500, FineTune=FALSE))
# ## End(Not run)
Run the code above in your browser using DataLab