Saudações segue um exemplo de Análise de Cluster, espero que seja útil !
Felicidades ...
Alexandro
x<- data.frame(matrix( c(9.6,28,8.4,31,2.4,42,18.2,38,3.9,25,6.4,41),nrow = 6, ncol=2, byrow=TRUE,
dimnames = list(c("A","B","C","D","E","F"),
c("Renda","Idade") ) ) )
x
hc <- hclust(dist(x), "single")
plclust(hc, hang = -5, main = "Dendograma ")
dend1=as.dendrogram(hc)
plot(dend1)
#MATRIZ
COFENÉTICA
d1ex1 <- dist(x, method = "euclidean") # distance matrix
d1ex1
hcex1 <- hclust(d1ex1, method="single")
hcex1
d2ex1=cophenetic(hcex1)
d2ex1
corrcofenet = cor(d1ex1,d2ex1)
corrcofenet