R/mgsem_proc_model_is_B.R

In alexanderrobitzsch/sirt: Supplementary Item Response Theory Models

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


mgsem_proc_model_is_B <- function(model)
{
    H <- length(model)
    is_B <- 0
    for (hh in 1L:H){
        is_B <- is_B + ( ! is.null( model[[hh]][['est']][['B']] ) )
    }
    is_B <- ( is_B > 0 )
    return(is_B)
}