R/noharm_sirt_preproc_pattern_matrix.R

In alexanderrobitzsch/sirt: Supplementary Item Response Theory Models

## File Name: noharm_sirt_preproc_pattern_matrix.R
## File Version: 0.182

noharm_sirt_preproc_pattern_matrix <- function(pattmat, minval=0, symm=FALSE)
{
    I <- nrow(pattmat)
    D <- ncol(pattmat)
    if (symm){
        pattmat0 <- pattmat
        pattmat1 <- t(pattmat)
        pattmat <- ifelse( pattmat0 < pattmat1, pattmat1, pattmat0)
        pattmat <- ( pattmat + t(pattmat) ) / 2
    }
    mp <- max(pattmat)
    ind <- ( pattmat > 0 ) & ( pattmat <=1 )
    if (sum(ind) > 0 ){
        DI <- prod(dim(pattmat))
        v1 <- matrix( 1L:DI, nrow=I )
        if (symm){
            v1 <- sirt_matrix_lower_to_upper(x=v1)
        }
        pattmat[ind] <- mp + v1[ind]
    }
    pattmat[ pattmat==0] <- NA
    elem <- stats::na.omit(as.vector(pattmat))
    if (length(elem)>0){
        pattmat <- matrix( match( pattmat, unique(elem) ), nrow=I) + minval
    }
    return(pattmat)
}