R/cdm_positivity_restriction.R

In CDM: Cognitive Diagnosis Modeling

Defines functions cdm_positivity_restriction

## File Name: cdm_positivity_restriction.R
## File Version: 0.02

cdm_positivity_restriction <- function(x, positive)
{
    x <- ifelse( ( x < 0 ) & positive, 0, x )
    return(x)
}

Try the CDM package in your browser