Foi utilizado o “hierarchical clustering”. Abaixo o dendrograma completo.
matrix <- read.csv("matrix.csv")
distMat <- dist(matrix)
hc <- hclust(distMat)
plot(hc)
Corte em 2
op = par(mfrow = c(2, 1))
hcd = as.dendrogram(hc)
plot(cut(hcd, h = 2)$lower[[2]])
Corte em 1
plot(cut(hcd, h = 1)$lower[[2]])
Corte em 0.5
plot(cut(hcd, h = 0.5)$lower[[2]])
Árvore 52
Árvore 58
Obs: não consegui fazer a árvore usando RWeka. Gerava o seguinte erro:
Error in .jnew(“weka/core/Attribute”, attname[i], .jcast(levels, “java/util/List”)) :
java.lang.NoSuchMethodError:
Não achei a solução no stackoverflow e nem em outros foruns.