R/dmlavaan_adjust_numdiff_h.R

In sirt: Supplementary Item Response Theory Models

Defines functions dmlavaan_adjust_numdiff_h

## File Name: dmlavaan_adjust_numdiff_h.R
## File Version: 0.03

dmlavaan_adjust_numdiff_h <- function(h, val)
{
    # h1 <- ifelse(abs(val)>1, h*abs(val), h )
    h1 <- h
    return(h1)
}

Try the sirt package in your browser