R/slca_set_seed.R

In CDM: Cognitive Diagnosis Modeling

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

slca_set_seed <- function(seed)
{
    seed.used <- NULL
    if ( ! is.null(seed) ){
        seed.used <- seed
        set.seed( seed=seed.used )
    }
    #--- output
    res <- list( seed.used=seed.used )
    return(res)
}