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
[email protected]
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.
