У меня проблема с этим кодом:
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) приводит к тому, что каждый элемент «2 объекта из 9 переменных», тогда как это должно быть «25 объектов из 9 переменных» (поскольку я работаю с 25 предметов). Хуже всего то, что ни один из моих коллег не имеет этой проблемы; для них это работает отлично. При этом я должен спросить: есть ли какой-то пакет, который я мог пропустить, который мог бы помочь мне в этом? Я уже использую "mirt", "psych" и "effsize". Что-то не так с моим ноутбуком?
Моя благодарность заранее.
И, конечно, если вам нужно больше кода, он должен быть предоставлен.