R/lsem_lavaan_modify_lavaan_object_test.R

In sirt: Supplementary Item Response Theory Models

## File Name: lsem_lavaan_modify_lavaan_object_test.R
## File Version: 0.03

lsem_lavaan_modify_lavaan_object_test <- function(object)
{
    # object@test
    test <- object@test
    test[[1]]$test <- 'standard'
    object@test <- test

    #-- output
    return(object)
}