R/cdm_increment_trimming_after_mstep.R

In alexanderrobitzsch/CDM: Cognitive Diagnosis Modeling

## File Name: cdm_increment_trimming_after_mstep.R
## File Version: 0.072


cdm_increment_trimming_after_mstep <- function( parm, parm0, max.increment0, type )
{
    c1 <- cdm_trim_increment( increment=parm-parm0, max.increment=max.increment0,
                                        type=2 )
    parm <- parm0 + c1
    max.increment0 <- min( max.increment0, max(abs(parm - parm0)) )
    #--- output
    res <- list( parm=parm, max.increment0=max.increment0)
    return(res)
}