aweSOMdendrogram {aweSOM} | R Documentation |
Plots the dendogram of a hierarchical clustering of the SOM prototypes.
aweSOMdendrogram(clust, nclass)
clust |
an object of class |
nclass |
an integer, number of superclasses |
Returns NULL
if nclass
is 1, or else a list
containing the indices of the SOM cells in each superclass.
## Build training data
dat <- iris[, c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width")]
### Scale training data
dat <- scale(dat)
## Train SOM
### Initialization (PCA grid)
init <- somInit(dat, 4, 4)
ok.som <- kohonen::som(dat, grid = kohonen::somgrid(4, 4, 'hexagonal'),
rlen = 100, alpha = c(0.05, 0.01),
radius = c(2.65,-2.65),
init = init, dist.fcts = 'sumofsquares')
## Group cells into superclasses (hierarchical clustering)
superclust <- hclust(dist(ok.som$codes[[1]]), 'complete')
## Plot superclasses dendrogram
aweSOMdendrogram(superclust, 2)