[R-br] Analise Fatorial - Componentes Principais

[Edmar Caldas]

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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20180731/0616b246/attachment.html>