R/tam_mml_constraint_check.R

Defines functions tam_mml_constraint_check

## File Name: tam_mml_constraint_check.R
## File Version: 0.06

tam_mml_constraint_check <- function(constraint)
{
    if (constraint=="item"){
        constraint <- "items"
    }
    if (constraint=="case"){
        constraint <- "cases"
    }
    elig_constraints <- c("items","cases")
    if (! ( constraint %in% elig_constraints) ){
        stop( paste0("Please choose one of the constraints: '",
                paste0( elig_constraints, collapse="' or '"), "'\n") )
    }
    return(constraint)
}

Try the TAM package in your browser

Any scripts or data that you put into this service are public.

TAM documentation built on May 29, 2024, 2:20 a.m.