R/bounds_parameters.R

In alexanderrobitzsch/sirt: Supplementary Item Response Theory Models

## File Name: bounds_parameters.R
## File Version: 0.08


bounds_parameters <- function( pars, lower=NULL, upper=NULL)
{
    if ( ! is.null(lower)){
        pars <- ifelse( pars < lower, lower, pars )
    }
    if ( ! is.null(upper)){
        pars <- ifelse( pars > upper, upper, pars )
    }
    return(pars)
}