<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="ydp4f7acfddsignature">
<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 href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</div>