Boa Noite!Ja consegui resolver. O codigo esta certo e o resultado tambem. Estava comparando com outro resultado. Peco desculpa erro foi meu. Enviado do Yahoo Mail no Android <div>Em Ter, 31 31e jul 31e 2018 às 19:16, sznelwar@uol.com.br</div><div><sznelwar@uol.com.br> escreveu:</div> Tem o dataset para rodar? Boa Tarde! 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,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. # AF pelo método componentes principais library(readxl)Olimpiadas <- read_excel("C:/Users/edmar/Desktop/FIAP Atualização BDT/Data Mining/Olimpiadas.xlsx")View(Olimpiadas)dim(Olimpiadas)CP <-Olimpiadas[,-11]CPdim(CP) View(CP) #Pedir as estatisticas descritivas e a matriz de correlação. cor(CP)sapply(CP,summary)sapply(CP,sd) # AF package psychinstall.packages("psych")library(psych) # kmoKMO(CP) # teste de esfericidade de Bartlettcortest.bartlett(CP) install.packages("GPArotation") library(GPArotation) # Tabela de variancia total explicad do spss pelos componentes principaisfit <-princomp(CP, cor=TRUE)fitsummary(fit) # Grafico scrren plotloadings(fit)plot(fit,type="lines") # extrair os fatores sem rotação - component matrix spssfit <-principal(CP,nfactors = 2, rotate = "none", scores = TRUE)fit # rotated componetn matrix spss fit <-principal(CP,nfactors=2,rotate="varimax",scores = TRUE, method = "regression")# EXTRAÇÃO PELO METODO VARIMAX.print(fit,digits = 3,cutoff=.0,sort = TRUE) #comunalidadesfit$communality #Grafico componentes espaço rotacionadoplot(load, type = "n")text(load, labels = names(CP),cex = .7)#nome nas variaveisabline(h=0)abline(v=0) Agora salvar os scores no arquivo não estou conseguindo. Os demais resultados batem todos. estou tentando: Mas sai diferente do SPSS?Tem algum segredo aqui????? > fit$scores RC1 RC2 [1,] -0.42227707 0.967455985 [2,] -1.08912141 0.462360637 [3,] -0.86924034 0.225857490 [4,] -0.53780514 0.919581430 [5,] -1.63914712 -0.616829273 [6,] -1.44129573 -0.088363255 [7,] -0.15298741 0.849870177 [8,] -0.73360090 0.216111850 [9,] -0.38707353 0.452628647[10,] 0.06303505 1.118762527[11,] 0.01554309 1.128912314[12,] -0.54253297 0.038456484[13,] -1.24977051 -0.689280878[14,] -0.83306807 0.006922647[15,] -0.48684252 0.033011053[16,] -0.25825680 0.210099942[17,] 2.08127102 2.190927462[18,] 0.86484820 1.186320909[19,] -0.82669302 -0.930504761[20,] 0.27811485 0.665010689[21,] 0.22335228 -0.092869066[22,] 0.20287071 -0.206901381[23,] 0.36309453 0.240739372[24,] 0.12631659 -0.329892015[25,] -0.17699769 -0.401440678[26,] -0.37557882 -1.074277378[27,] -0.60432737 -1.290110113[28,] 1.44661663 0.853691289[29,] -0.16292001 -1.175375590[30,] 0.78399429 -0.250845135[31,] 1.92828660 0.654161779[32,] 1.13276765 -0.405341447[33,] 0.51556035 -1.656032055[34,] 2.76386458 -3.212819656 Edmar_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.