2

順序付けられたカテゴリ データの探索的因子分析から因子スコアを計算するのに問題があります。描画する因子の数を評価し、psych パッケージを使用して因子分析を実行することはできましたが、個々の参加者の因子スコアを取得する方法がわかりません。これが私が立ち往生している場所です：

library(polycor)
library(nFactors)
library(psych)

# load data
dat <- read.csv("https://raw.githubusercontent.com/paulrconnor/datasets/master/data.csv")

# convert to ordered factors
for(i in 1:length(dat)){
  dat[,i] <- as.factor(dat[,i])
}

# compute polychoric correlations
pc <- hetcor(dat,ML=T)

# 2. choose number of factors
ev <- eigen(pc) 
ap <- parallel(subject = nrow(dat), 
               var=ncol(dat),rep=100,cent=.05)
nS <- nScree(x = ev$values, aparallel = ap$eigen$qevpea)
dev.new(height=4,width=6,noRStudioGD = T)
plotnScree(nS) # 2 factors, maybe 1

# run FA
faPC <- fa(r=pc$correlations, nfactors = 2, rotate="varimax",fm="ml")
faPC$loadings

編集: irt.fa() と scoreIrt() を使用してスコアを取得する方法を見つけましたが、順序付けられたカテゴリを数値に変換する必要があったため、有効かどうかわかりません。どんなアドバイスでも大歓迎です！

x = as.matrix(dat)
fairt <- irt.fa(x = x,nfactors=2,correct=TRUE,plot=TRUE,n.obs=NULL,rotate="varimax",fm="ml",sort=FALSE)
for(i in 1:length(dat)){dat[,i] <- as.numeric(dat[,i])}
scoreIrt(stats = fairt, items = dat, cut = 0.2, mod="logistic")
4

1 に答える 1