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. <br id="yMail_cursorElementTracker_1533078564212"><br><div id="ymail_android_signature"><a href="https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&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;"> <div>Em Ter, 31 31e jul 31e 2018 às 19:16, sznelwar@uol.com.br</div><div><sznelwar@uol.com.br> escreveu:</div> </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> </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> </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> </div>
<div> </div>
<div> </div>
<div>
<div># AF pelo método componentes principais</div>
<div> </div>
<div>library(readxl)</div>
<div>Olimpiadas <- 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 <-Olimpiadas[,-11]</div>
<div>CP</div>
<div>dim(CP)</div>
<div> </div>
<div>View(CP)</div>
<div> </div>
<div>#Pedir as estatisticas descritivas e a matriz de correlação.</div>
<div> </div>
<div>cor(CP)</div>
<div>sapply(CP,summary)</div>
<div>sapply(CP,sd)</div>
<div> </div>
<div># AF package psych</div>
<div>install.packages("psych")</div>
<div>library(psych)</div>
<div> </div>
<div> </div>
<div># kmo</div>
<div>KMO(CP)</div>
<div> </div>
<div> </div>
<div># teste de esfericidade de Bartlett</div>
<div>cortest.bartlett(CP)</div>
<div> </div>
<div> </div>
<div>install.packages("GPArotation") </div>
<div>library(GPArotation)</div>
<div> </div>
<div> </div>
<div># Tabela de variancia total explicad do spss pelos componentes principais</div>
<div>fit <-princomp(CP, cor=TRUE)</div>
<div>fit</div>
<div>summary(fit)</div>
<div> </div>
<div> </div>
<div> </div>
<div># Grafico scrren plot</div>
<div>loadings(fit)</div>
<div>plot(fit,type="lines")</div>
<div> </div>
<div> </div>
<div># extrair os fatores sem rotação - component matrix spss</div>
<div>fit <-principal(CP,nfactors = 2, rotate = "none", scores = TRUE)</div>
<div>fit</div>
<div> </div>
<div> </div>
<div># rotated componetn matrix spss </div>
<div>fit <-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> </div>
<div> </div>
<div>#comunalidades</div>
<div>fit$communality</div>
<div> </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> </div>
<div> </div>
<div>Agora salvar os scores no arquivo não estou conseguindo. Os demais resultados batem todos.</div>
<div> </div>
<div>estou tentando: Mas sai diferente do SPSS?</div>
<div>Tem algum segredo aqui?????</div>
<div> </div>
<div>
<div>
<div>> fit$scores</div>
<div> RC1 RC2</div>
<div> [1,] -0.42227707 0.967455985</div>
<div> [2,] -1.08912141 0.462360637</div>
<div> [3,] -0.86924034 0.225857490</div>
<div> [4,] -0.53780514 0.919581430</div>
<div> [5,] -1.63914712 -0.616829273</div>
<div> [6,] -1.44129573 -0.088363255</div>
<div> [7,] -0.15298741 0.849870177</div>
<div> [8,] -0.73360090 0.216111850</div>
<div> [9,] -0.38707353 0.452628647</div>
<div>[10,] 0.06303505 1.118762527</div>
<div>[11,] 0.01554309 1.128912314</div>
<div>[12,] -0.54253297 0.038456484</div>
<div>[13,] -1.24977051 -0.689280878</div>
<div>[14,] -0.83306807 0.006922647</div>
<div>[15,] -0.48684252 0.033011053</div>
<div>[16,] -0.25825680 0.210099942</div>
<div>[17,] 2.08127102 2.190927462</div>
<div>[18,] 0.86484820 1.186320909</div>
<div>[19,] -0.82669302 -0.930504761</div>
<div>[20,] 0.27811485 0.665010689</div>
<div>[21,] 0.22335228 -0.092869066</div>
<div>[22,] 0.20287071 -0.206901381</div>
<div>[23,] 0.36309453 0.240739372</div>
<div>[24,] 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,] 1.44661663 0.853691289</div>
<div>[29,] -0.16292001 -1.175375590</div>
<div>[30,] 0.78399429 -0.250845135</div>
<div>[31,] 1.92828660 0.654161779</div>
<div>[32,] 1.13276765 -0.405341447</div>
<div>[33,] 0.51556035 -1.656032055</div>
<div>[34,] 2.76386458 -3.212819656</div>
</div>
<div> </div>
<div> </div>
<div> </div>
<div> </div>
</div>
</div>
<div> </div>
</div>
<div> </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>