mod <- mirt(Science, 1)
CATdesign <- mirtCAT(df=NULL, mod, criteria = 'MI', design_elements = TRUE, local_pattern = c(1,1,1,1))
findNextItem(CATdesign)
[1] 1
Warning message:
In is.na(person$responses) :
is.na() applied to non-(list or vector) of type 'NULL'
CATdesign <- updateDesign(CATdesign, items = 1, responses = 1, Theta = 0.5)
Error in x$person$items_answered[pick:(length(responses) + pick - 1L)] <- as.integer(items) :
negative length vectors are not allowed
In addition: Warning messages:
1: In is.na(x$person$items_answered) :
is.na() applied to non-(list or vector) of type 'NULL'
2: In min(which(is.na(x$person$items_answered))) :
no non-missing arguments to min; returning Inf