R/rm_trim_increments_mstep.R

In sirt: Supplementary Item Response Theory Models

## File Name: rm_trim_increments_mstep.R
## File Version: 0.05

rm_trim_increments_mstep <- function( parm, parm0, max.increment )
{
    increment <- parm - parm0
    increment <- rm_numdiff_trim_increment( increment=increment, max.increment=max.increment, eps2=1E-10)
    parm <- parm0 + increment
    return(parm)
}