<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>Obrigado Cesar e Fernando pelas dicas estão ajudando muito a
solidificar os estudos que venho conduzindo,</p>
<p> Fernando obrigado pelo vídeo, tirando o inglês carregado no
francês que dificulta na compreensão ajudou muito e estou
explorando muito a ferramenta dimdesc().</p>
<p> Cesar, as figuras que me mandou representa bem o que eu
quero, qual a função que utilizou para gerar aquelas figuras de %
de contribuição de cada variável.</p>
<p>Obrigado a ajuda de todos,<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 04/05/2018 17:36, Cesar Rabak
escreveu:<br>
</div>
<blockquote type="cite"
cite="mid:CAKrF98nrZV6b5JuP5G0PJS1eExoiMz+xLxCT9tryR08RSf3Jbw@mail.gmail.com">
<div dir="ltr">Sim Alexandre.<br>
<br>
Aliás, eu recomendo que você teste os resultados da pesquisa com
os comandos (para os dados e resultados da PCA do seu CMR):<br>
<br>
> biplot(pca.object)
<div><br>
</div>
<div>e</div>
<div><br>
</div>
<div>> biplot(pca.object, choice=2:3)</div>
<div><br>
</div>
<div>Nessa representação você pode ver como as variáveis estão
correlacionadas em relação às componentes da PCA <b>lembrando
que a representação por ser espacial pode ter uma distorção
devido às outras dimensões</b>.</div>
<div><br>
</div>
<div>Por isso outros pacotes, como o FactoMiner (um dos meus
favoritos junto com o ade4) permitem que se faça um corte nas
variáveis que aparecem nesses gráficos levando em conta a
assim chamada "qualidade da representação" em cada plano.</div>
<div><br>
</div>
<div>Vou eludir discussão sobre um número muito reduzido de
casos versus o número de variáveis neste caso porque entendo
que o CMR é só para discutir a técnica.</div>
<div><br>
</div>
<div>HTH</div>
</div>
<div class="gmail_extra"><br>
<div class="gmail_quote">2018-05-03 16:30 GMT-03:00 ASANTOS <span
dir="ltr"><<a
href="mailto:alexandre.santos@cas.ifmt.edu.br"
target="_blank" moz-do-not-send="true">alexandre.santos@cas.ifmt.edu.br</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">
<div text="#000000" bgcolor="#FFFFFF">
<p>Obrigado Cezar,</p>
<p> Então mudando names(load.rot[,2][order(abs(<wbr>load.rot[,2]),decreasing=TRUE)<wbr>][1:topN])
e names(load.rot[,3][order(abs(<wbr>load.rot[,3]),decreasing=TRUE)<wbr>][1:topN]),
vou ter as cinco variáveis mais correlacionadas com a
segunda e terceira componentes principais
respectivamente?</p>
<p>Novamente obrigado,</p>
<span class="">
<p>Alexandre<br>
</p>
<pre class="m_4094510819290899030moz-signature" cols="72">--
==============================<wbr>==============================<wbr>==========
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="m_4094510819290899030moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank" moz-do-not-send="true">e-mails:alexandresantosbr@<wbr>yahoo.com.br</a>
<a class="m_4094510819290899030moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank" moz-do-not-send="true">alexandre.santos@cas.ifmt.edu.<wbr>br</a>
Lattes: <a class="m_4094510819290899030moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680" target="_blank" moz-do-not-send="true">http://lattes.cnpq.br/<wbr>1360403201088680</a>
OrcID: <a href="http://orcid.org/0000-0001-8232-6722" target="_blank" moz-do-not-send="true">orcid.org/0000-0001-8232-6722</a> - ResearcherID: A-5790-2016
Researchgate: <a class="m_4094510819290899030moz-txt-link-abbreviated" href="http://www.researchgate.net/profile/Alexandre_Santos10" target="_blank" moz-do-not-send="true">www.researchgate.net/profile/<wbr>Alexandre_Santos10</a>
LinkedIn: <a href="http://br.linkedin.com/in/alexandre-dos-santos-87961635" target="_blank" moz-do-not-send="true">br.linkedin.com/in/alexandre-<wbr>dos-santos-87961635</a>
<a class="m_4094510819290899030moz-txt-link-freetext" moz-do-not-send="true">Mendeley:www.mendeley.com/<wbr>profiles/alexandre-dos-<wbr>santos6/</a>
==============================<wbr>==============================<wbr>==========</pre>
</span><span class="">
<div class="m_4094510819290899030moz-cite-prefix">Em
02/05/2018 23:57, Cesar Rabak escreveu:<br>
</div>
<blockquote type="cite">##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>
</span></div>
</blockquote>
</div>
<br>
</div>
</blockquote>
<br>
</body>
</html>