11 lines
338 B
R
11 lines
338 B
R
# K-Means Clustering
|
|
# https://www.polarmicrobes.org/microbial-community-segmentation-with-r/
|
|
|
|
som.cluster <- kmeans(data.frame(som.model$codes), centers=k)
|
|
|
|
plot(som.model,
|
|
main = '',
|
|
type = "property",
|
|
property = som.cluster$cluster,
|
|
palette.name = topo.colors)
|
|
add.cluster.boundaries(som.model, som.cluster$cluster) |