powered by
expand(somnet, plotit=FALSE)
wccsom
TRUE
data(cepha) gr <- somgrid(3,3, "hexagonal") set.seed(7) x <- wccsom(cepha$patterns, grid=gr, trwidth=20, rlen=50) x2 <- expand(x, plotit=TRUE)
Run the code above in your browser using DataLab