Karla; Dê uma olhada nos comandos abaixo....Talvez, te ajude.....!!! comp=read.csv("D:/componentes principais/comp.csv",sep=";",dec=",",h=T,row.name="Resíduos") matrix=as.matrix(comp) de=dist(matrix,method="euclidean")^0.5 # distância euclidiana entre os objetos da matrix hc=hclust(de,"average")#cluster pelo método da ligação média e a distância euclidiana plot(hc,cex=1.0,hang=0.5) hc$height cof=cophenetic(hc)  cor(cof,de) # Correlação entre as distâncias originais e as distânicias recuperas no dendrograma (Correlação cofenética) library(pvclust) X=t(as.matrix(comp)) X fit=pvclust(X, method.hclust="average",method.dist="euclidean") plot(fit) pvrect(fit, alpha=.95)  Thiago de Paula Protásio Acadêmico de Engenharia Florestal Universidade Federal de Lavras Laboratório de Energia da Biomassa Florestal Laboratório de Biomateriais (035) 9183-2246