R/SOMs.R

In UNCLES: Unification of Clustering Results from Multiple Datasets using External Specifications

SOMs <- function(X, K, topo = "hexagonal", rlen = 100, alpha = c(0.05, 0.01),
    n.hood = "circular") {
    dims = closestToSquareFactors(K)
    som_grid <- somgrid(xdim = dims[1], ydim = dims[2], topo = topo)
    som_model <- kohonen::som(X, grid = som_grid, rlen = rlen, alpha = alpha, n.hood = n.hood)
    return(clustVec2partMat(som_model$unit.classif))
}