Question

我对这段代码有疑问：

model_constrained <- multipleGroup(X,1,group,
                               invariance = c('free_means', 'free_var',names(X))) 
constrained_parameters <- coef(extract.group(model_constrained,1), simplify=TRUE,IRTpars=TRUE)$items[,c("a","b")]; constrained_parameters
free_item <- DIF(model_constrained, c('a1', 'd'), scheme = 'drop',p.adjust="BH"); free_item
output_AOAA <- get.dif.items(free_item,0.05,constrained_parameters);output_AOAA

显然，一旦我运行了所有内容，就会以

的形式出现错误

Error in 1:nitems : argument of length 0

尽管最大的问题是该错误也来自

model_anchor <- multipleGroup(X,1,group,
                              invariance = c('free_means', 'free_var',anchor))
model_anchor_parameters1 <- coef(extract.group(model_anchor,1), simplify=TRUE,IRTpars=TRUE)$items[,c("a","b")];model_anchor_parameters1
model_anchor_parameters2 <- coef(extract.group(model_anchor,2), simplify=TRUE,IRTpars=TRUE)$items[,c("a","b")];model_anchor_parameters2 
model_anchor_parameters  <- as.data.frame(cbind(model_anchor_parameters1,model_anchor_parameters2))
model_anchor_parameters  <- model_anchor_parameters[test.items,]
names(model_anchor_parameters) <- c("a1","b1","a2","b2")
constrain_item <- DIF(model_anchor, c('a1', 'd'), scheme = 'add',p.adjust="BH",
                      items2test = test.items); constrain_item

coef(model_anchor,simplify=TRUE)
output_two_step <- get.dif.items(constrain_item,0.05,model_anchor_parameters);output_two_step

由于许多项目都依赖于此。显然，在创建free_item时，使用str（free_item）进行查看会导致每个项目都是“ 9个变量的2个肥胖”，而应该是“ 9个变量的25个肥胖”（因为我使用过25个项目）。最糟糕的是，我的同事都没有这个问题。对于他们来说，它运行完美。对此，我必须问：是否有我可能错过的软件包可以帮助我解决这个问题？我已经使用“反光”，“心理”和“效果”。我的笔记本电脑有问题吗？我预先感谢。当然，如果需要更多代码，则将提供它。

有关差异项功能（DIF）的IRT分析问题

0 个答案: