R/tam_mml_proc_unidim_simplify.R

In TAM: Test Analysis Modules

## File Name: tam_mml_proc_unidim_simplify.R
## File Version: 0.04

tam_mml_proc_unidim_simplify <- function(Y, A, G, beta.fixed)
{
    eps <- 1E-15
    YSD <- max( apply( Y, 2, stats::sd ) )
    if (YSD > eps ){
        YSD <- TRUE
    } else {
        YSD <- FALSE
    }
    Avector <- as.vector(A)
    Avector[ is.na(Avector) ] <- 0
    unidim_simplify <- TRUE
    if (G > 1){
        unidim_simplify <- FALSE
    }
    if (YSD){
        unidim_simplify <- FALSE
    }
    if ( is.null(beta.fixed) ){
        unidim_simplify <- FALSE
    }
    #--- OUTPUT
    res <- list( unidim_simplify=unidim_simplify, YSD=YSD, Avector=Avector)
    return(res)
}