R/gdina_proc_sequential_items.R

In CDM: Cognitive Diagnosis Modeling

## File Name: gdina_proc_sequential_items.R
## File Version: 0.14

gdina_proc_sequential_items <- function( data, q.matrix )
{
    maxK <- max( data, na.rm=TRUE )
    sequential <- FALSE
    if ( maxK > 1){
        res0 <- sequential.items( data=data )
        data <- res0$dat.expand
        iteminfo <- res0$iteminfo
        sequential <- TRUE
        if (! is.numeric(q.matrix[,1])){
            q.matrix <- q.matrix[,-c(1:2)]
        } else {
            q.matrix <- q.matrix[ iteminfo$itemindex, ]
            rownames(q.matrix) <- colnames(data)
        }
    }
    res <- list( data=data, sequential=sequential, q.matrix=q.matrix )
    return(res)
}