dis<-vegdist
(dados, method = "euclidean")
dis
range(dis)
clust<- hclust(dis, "average")
plot(clust, main="Análise de Agrupamento", sub="Ligação pela média",
xlab="Locais e orgãos", ylab="Dissimilaridade
(Distância Euclidiana)")
cor(dis, cophenetic(clust))
rect.hclust(clust, k=2, border="red")#desenhar dois retângulos
x <-
rect.hclust(clust, h=40)#cortar na altura de 40
Se alguém puder me ajudar, desde já agradeço.