Question

在IRT软件 ConQuest 中，您可以使用命令“score”来使用相同的清单变量/原始数据建模多个维度/潜在变量，但编码不同。例如：

score (1,2,3) (0,1,2) (0,1,0) ! items(1-3);

“重新编码”第一维的0,1和2中的原始分数从1到3，第二维的原始分数为0,1,0（潜在变量）。

你知道如何在 R包TAM （使用 lavaan 语法或其他方法）中实现相同的方法吗？我正在尝试进行PCM分析。

非常感谢提前！

KH

Answer 1

我在这里没有得到答案，但我联系了TAM包的作者Alexander Robitzsch，这是他寄给我的东西（经他许可发表）：

data(data.gpcm)
psych::describe(data.gpcm)
resp <- data.gpcm

# define three dimensions and different loadings
# of item categories on these dimensions
I <- 3  # 3 items
D <- 3  # 3 dimensions

# define loading matrix B
# 4 categories for each item (0,1,2,3)
B <- array( 0 , dim=c(I,4,D) )
for (ii in 1:I){
    B[ ii , 1:4  , 1 ] <- 0:3
    B[ ii , 1 ,2 ] <- 1
    B[ ii , 4 ,3 ] <- 1
            }
dimnames(B)[[1]] <- colnames(resp)
B[1,,]
  ##   > B[1,,]
  ##        [,1] [,2] [,3]
  ##   [1,]    0    1    0
  ##   [2,]    1    0    0
  ##   [3,]    2    0    0
  ##   [4,]    3    0    1

# test run
mod1 <- tam.mml( resp , B = B , control=list( snodes=1000 , maxiter=5)  )
summary(mod1)

当然，我必须根据自己的需要编辑代码，但特别是对你们所有人都有兴趣：出于某种原因，B矩阵只有在我定义了0类别时才有效，尽管我的评分/ data仅包含1到5的值：

B <- array( 0 , dim=c(9,6,5) ) # 9 items, 5 response cat. + 1, 5 latent dimensions
for (ii in 1:I){
  B[ ii , 1:6  , 1 ] <- 0:5
  B[ ii , 2 ,2 ] <- 1
  B[ ii , 2 ,3 ] <- 1
  B[ ii , 6 ,3 ] <- 1
  B[ ii , 6 ,4 ] <- 1
  B[ ii , 4 ,5 ] <- 1
}

dimnames(B)[[1]] <- colnames(X)
B[1,,]

干杯， KH

Answer 2

正如TAM对上述答案的扩展，以下是如何使用mirt包运行相同的代码，除了使用广义部分信用模型而不是Rasch模型（Rasch模型）需要一个明确的模型参数才能正确识别。）

library(mirt)
gpcm_mats <- list(B[1,,], B[2,,], B[3,,])
sv <- mirt(resp, 3, itemtype = 'gpcm', 
           gpcm_mats = gpcm_mats, pars = 'values') #starting values
mod <- mirt(resp, 3, itemtype = 'gpcm', gpcm_mats = gpcm_mats)
coef(mod, simplify=TRUE)

在TAM中实施ConQuest score命令

2 个答案: