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
euclidianaplot(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
_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
