if（nc == 0）{：缺少值需要TRUE / FALSE时出错

Question

我在R中运行DIF并在运行代码后出现以下问题。请告诉我如何解决这个问题。

library("ordinal")

dat <- read.csv("aaa.csv",header=TRUE)
dat


G <- dat$group
X <- as.matrix(dat[,2:21])

N <- nrow(X)
n <- ncol(X)

library("mirt")

SPECS <- mirt.model('F = 1-5
PRIOR = (1-20, a1, lnorm, 0, 1),
(1-20,  d1,  norm, 0, 2),
(1-20,  d2,  norm, 0, 2),
(1-20,  d3,  norm, 0, 2)  ')

modpoly <- mirt(data=X,model=SPECS,itemtype='graded')
summary(modpoly)
coef(modpoly)

T <- fscores(modpoly,method="ML",
             full.scores=TRUE,scores.only=TRUE)

IT给出了以下错误

  

if（nc == 0）{：缺少值需要TRUE / FALSE

时出错