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]

dim(CP)

View(CP)

#Pedir as estatisticas descritivas e a matriz de correlação.

cor(CP)

sapply(CP,summary)

sapply(CP,sd)

# AF package psych

install.packages("psych")

library(psych)

# kmo

KMO(CP)

# teste de esfericidade de Bartlett

cortest.bartlett(CP)

install.packages("GPArotation")

library(GPArotation)

# Tabela de variancia total explicad do spss pelos componentes principais

fit <-princomp(CP, cor=TRUE)

fit

summary(fit)

# Grafico scrren plot

loadings(fit)

plot(fit,type="lines")

# extrair os fatores sem rotação - component matrix spss

fit <-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)

#comunalidades

fit$communality

#Grafico componentes espaço rotacionado

plot(load, type = "n")

text(load, labels = names(CP),cex = .7)#nome nas variaveis

abline(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