R/rm_numdiff_trim_increment.R

Defines functions rm_numdiff_trim_increment

## File Name: rm_numdiff_trim_increment.R
## File Version: 0.12

rm_numdiff_trim_increment <- function( increment, max.increment, eps2 )
{
    aincr <- abs(increment)
    amaxincr <- abs(max.increment)
    ci <- ceiling( aincr / ( amaxincr + eps2 ) )
    increment <- ifelse( aincr > amaxincr, increment/(2*ci), increment)
    return(increment)
}

Try the sirt package in your browser

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

sirt documentation built on May 29, 2024, 8:43 a.m.