R/mgsem_proc_model_add_specs.R

Defines functions mgsem_proc_model_add_specs

## File Name: mgsem_proc_model_add_specs.R
## File Version: 0.07


mgsem_proc_model_add_specs <- function(model, entry, type, ii, jj, default)
{
    val <- default
    mat <- model[[entry]][[type]]
    if (!is.null(mat)){
        val <- mat[ii,jj]
    }
    return(val)
}
alexanderrobitzsch/sirt documentation built on Sept. 8, 2024, 2:45 a.m.