<html><head></head><body><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><br></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><br></div><div><br></div><div><br></div><div><span><div># AF pelo método componentes principais</div><div><br></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><br></div><div>View(CP)</div><div><br></div><div>#Pedir as estatisticas descritivas e a matriz de correlação.</div><div><br></div><div>cor(CP)</div><div>sapply(CP,summary)</div><div>sapply(CP,sd)</div><div><br></div><div># AF package psych</div><div>install.packages("psych")</div><div>library(psych)</div><div><br></div><div><br></div><div># kmo</div><div>KMO(CP)</div><div><br></div><div><br></div><div># teste de esfericidade de Bartlett</div><div>cortest.bartlett(CP)<br></div><div><br></div><div><br></div><div>install.packages("GPArotation") </div><div>library(GPArotation)</div><div><br></div><div><br></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><br></div><div><br></div><div><br></div><div># Grafico scrren plot</div><div>loadings(fit)</div><div>plot(fit,type="lines")</div><div><br></div><div><br></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><br></div><div><br></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><br></div><div><br></div><div>#comunalidades</div><div>fit$communality</div><div><br></div><div><span><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><br></div><div><br></div><div>Agora salvar os scores no arquivo não estou conseguindo. Os demais resultados batem todos.</div><div><br></div><div>estou tentando: Mas sai diferente do SPSS?</div><div>Tem algum segredo aqui?????</div><div><br></div><div><span><div><span><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></span><br></div><div><br></div><div><br></div><div><br></div><div><br></div></span><br></div></span><br></div><div><br></div></span><br></div><div><br></div><div class="ydp4f7acfddsignature"><div><font color="#0000ff">Edmar</font></div></div></div></div></body></html>