<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>Obrigado Cezar,</p>
<p> Então mudando
names(load.rot[,2][order(abs(load.rot[,2]),decreasing=TRUE)][1:topN])
e
names(load.rot[,3][order(abs(load.rot[,3]),decreasing=TRUE)][1:topN]),
vou ter as cinco variáveis mais correlacionadas com a segunda e
terceira componentes principais respectivamente?</p>
<p>Novamente obrigado,</p>
<p>Alexandre<br>
</p>
<pre class="moz-signature" cols="72">--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 99686-6970 (VIVO) (+55) 65 3221-2674 (FIXO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
OrcID: orcid.org/0000-0001-8232-6722 - ResearcherID: A-5790-2016
Researchgate: <a class="moz-txt-link-abbreviated" href="http://www.researchgate.net/profile/Alexandre_Santos10">www.researchgate.net/profile/Alexandre_Santos10</a>
LinkedIn: br.linkedin.com/in/alexandre-dos-santos-87961635
<a class="moz-txt-link-freetext" href="Mendeley:www.mendeley.com/profiles/alexandre-dos-santos6/">Mendeley:www.mendeley.com/profiles/alexandre-dos-santos6/</a>
======================================================================</pre>
<div class="moz-cite-prefix">Em 02/05/2018 23:57, Cesar Rabak
escreveu:<br>
</div>
<blockquote type="cite"
cite="mid:CAKrF98=vg2gNwbT3-NQXNhvf-F5boyNFkDAN6kBr4Tj7ORPAhA@mail.gmail.com">##Banco
de dados<br>
<br>
set.seed(12345)<br>
mat <- matrix(rnorm(120,0,0.5),nrow=6<wbr>,byrow=TRUE)<br>
rownames(mat) <- paste("s",1:6,sep="")<br>
colnames(mat) <- paste("g",1:20,sep="")<br>
head(mat)<br>
<br>
## Espectros com maior correlação<br>
pca.object <- prcomp(mat,center=TRUE,scale.=<wbr>FALSE)<br>
plot(pca.object)<br>
<br>
#Quero os cinco mais correlacionados<br>
topN <- 5<br>
load.rot <- scale(pca.object$rotation)<br>
names(load.rot[,1][order(abs(l<wbr>oad.rot[,1]),decreasing=TRUE)]<wbr>[1:topN])</blockquote>
<br>
</body>
</html>