Boa Noite!<div id="yMail_cursorElementTracker_1533078571673">Ja consegui resolver. O codigo esta certo e o resultado tambem. Estava comparando com outro resultado. Peco desculpa erro foi meu.&nbsp;<br id="yMail_cursorElementTracker_1533078564212"><br><div id="ymail_android_signature"><a href="https://go.onelink.me/107872968?pid=InProduct&amp;c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&amp;af_wl=ym&amp;af_sub1=Internal&amp;af_sub2=Global_YGrowth&amp;af_sub3=EmailSignature">Enviado do Yahoo Mail no Android</a></div> <br> <blockquote style="margin: 0 0 20px 0;"> <div style="font-family:Roboto, sans-serif; color:#6D00F6;"> &lt;div&gt;Em Ter, 31 31e jul 31e 2018 às 19:16, sznelwar@uol.com.br&lt;/div&gt;&lt;div&gt;&lt;sznelwar@uol.com.br&gt; escreveu:&lt;/div&gt; </div> <div style="padding: 10px 0 0 20px; margin: 10px 0 0 0; border-left: 1px solid #6D00F6;"> <div id="yiv1524671421"><div><span style="font-size:medium;color:#0000ff;">Tem o dataset para rodar?</span></div>
<div>&nbsp;</div>
<div style="font-family:Helvetica Neue, Helvetica, Arial, sans-serif;font-size:13px;">
<div style="font-family:Helvetica Neue, Helvetica, Arial, sans-serif;font-size:13px;">
<div>Boa Tarde!</div>
<div>&nbsp;</div>
<div>Preciso de uma ajuda na Análise Fatorial, estou tentando salvar os scores dos fatores para colocar no aquirvo que estou trabalhando, mas não está rolando,</div>
<div>estou comparando com outra ferramenta estatística SPSS e os valores são diferentes, somente os scores. Estou tentando salvar pelo método de regression.</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div>
<div># AF pelo método componentes principais</div>
<div>&nbsp;</div>
<div>library(readxl)</div>
<div>Olimpiadas &lt;- read_excel("C:/Users/edmar/Desktop/FIAP Atualização BDT/Data Mining/Olimpiadas.xlsx")</div>
<div>View(Olimpiadas)</div>
<div>dim(Olimpiadas)</div>
<div>CP &lt;-Olimpiadas[,-11]</div>
<div>CP</div>
<div>dim(CP)</div>
<div>&nbsp;</div>
<div>View(CP)</div>
<div>&nbsp;</div>
<div>#Pedir as estatisticas descritivas e a matriz de correlação.</div>
<div>&nbsp;</div>
<div>cor(CP)</div>
<div>sapply(CP,summary)</div>
<div>sapply(CP,sd)</div>
<div>&nbsp;</div>
<div># AF package psych</div>
<div>install.packages("psych")</div>
<div>library(psych)</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div># kmo</div>
<div>KMO(CP)</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div># teste de esfericidade de Bartlett</div>
<div>cortest.bartlett(CP)</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div>install.packages("GPArotation")&nbsp;</div>
<div>library(GPArotation)</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div># Tabela de variancia total explicad do spss pelos componentes principais</div>
<div>fit &lt;-princomp(CP, cor=TRUE)</div>
<div>fit</div>
<div>summary(fit)</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div># Grafico scrren plot</div>
<div>loadings(fit)</div>
<div>plot(fit,type="lines")</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div># extrair os fatores sem rotação - component matrix spss</div>
<div>fit &lt;-principal(CP,nfactors = 2, rotate = "none", scores = TRUE)</div>
<div>fit</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div># rotated componetn matrix spss&nbsp;</div>
<div>fit &lt;-principal(CP,nfactors=2,rotate="varimax",scores = TRUE, method = "regression")# EXTRAÇÃO PELO METODO VARIMAX.</div>
<div>print(fit,digits = 3,cutoff=.0,sort = TRUE)</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div>#comunalidades</div>
<div>fit$communality</div>
<div>&nbsp;</div>
<div>
<div>#Grafico componentes espaço rotacionado</div>
<div>plot(load, type = "n")</div>
<div>text(load, labels = names(CP),cex = .7)#nome nas variaveis</div>
<div>abline(h=0)</div>
<div>abline(v=0)</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div>Agora salvar os scores no arquivo não estou conseguindo. Os demais resultados batem todos.</div>
<div>&nbsp;</div>
<div>estou tentando: Mas sai diferente do SPSS?</div>
<div>Tem algum segredo aqui?????</div>
<div>&nbsp;</div>
<div>
<div>
<div>&gt; fit$scores</div>
<div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RC1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RC2</div>
<div>&nbsp;[1,] -0.42227707&nbsp; 0.967455985</div>
<div>&nbsp;[2,] -1.08912141&nbsp; 0.462360637</div>
<div>&nbsp;[3,] -0.86924034&nbsp; 0.225857490</div>
<div>&nbsp;[4,] -0.53780514&nbsp; 0.919581430</div>
<div>&nbsp;[5,] -1.63914712 -0.616829273</div>
<div>&nbsp;[6,] -1.44129573 -0.088363255</div>
<div>&nbsp;[7,] -0.15298741&nbsp; 0.849870177</div>
<div>&nbsp;[8,] -0.73360090&nbsp; 0.216111850</div>
<div>&nbsp;[9,] -0.38707353&nbsp; 0.452628647</div>
<div>[10,]&nbsp; 0.06303505&nbsp; 1.118762527</div>
<div>[11,]&nbsp; 0.01554309&nbsp; 1.128912314</div>
<div>[12,] -0.54253297&nbsp; 0.038456484</div>
<div>[13,] -1.24977051 -0.689280878</div>
<div>[14,] -0.83306807&nbsp; 0.006922647</div>
<div>[15,] -0.48684252&nbsp; 0.033011053</div>
<div>[16,] -0.25825680&nbsp; 0.210099942</div>
<div>[17,]&nbsp; 2.08127102&nbsp; 2.190927462</div>
<div>[18,]&nbsp; 0.86484820&nbsp; 1.186320909</div>
<div>[19,] -0.82669302 -0.930504761</div>
<div>[20,]&nbsp; 0.27811485&nbsp; 0.665010689</div>
<div>[21,]&nbsp; 0.22335228 -0.092869066</div>
<div>[22,]&nbsp; 0.20287071 -0.206901381</div>
<div>[23,]&nbsp; 0.36309453&nbsp; 0.240739372</div>
<div>[24,]&nbsp; 0.12631659 -0.329892015</div>
<div>[25,] -0.17699769 -0.401440678</div>
<div>[26,] -0.37557882 -1.074277378</div>
<div>[27,] -0.60432737 -1.290110113</div>
<div>[28,]&nbsp; 1.44661663&nbsp; 0.853691289</div>
<div>[29,] -0.16292001 -1.175375590</div>
<div>[30,]&nbsp; 0.78399429 -0.250845135</div>
<div>[31,]&nbsp; 1.92828660&nbsp; 0.654161779</div>
<div>[32,]&nbsp; 1.13276765 -0.405341447</div>
<div>[33,]&nbsp; 0.51556035 -1.656032055</div>
<div>[34,]&nbsp; 2.76386458 -3.212819656</div>
</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
<div>&nbsp;</div>
</div>
</div>
<div>&nbsp;</div>
</div>
<div>&nbsp;</div>
<div class="yiv1524671421ydp4f7acfddsignature">
<div><span style="color:#0000ff;">Edmar</span></div>
</div>
</div>
</div>
<div>_______________________________________________<br>R-br mailing list<br>R-br@listas.c3sl.ufpr.br<br><a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</div></div> </div> </blockquote></div>