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