R/gdina_maximum_parameter_change.R

In alexanderrobitzsch/CDM: Cognitive Diagnosis Modeling

## File Name: gdina_maximum_parameter_change.R
## File Version: 0.01

gdina_maximum_parameter_change <- function( delta, delta.new, linkfct )
{
    max.par.change <- max( abs( unlist( delta.new ) - unlist( delta ) ) )
    if ( linkfct %in% c("logit","log") ){
        max.par.change <- max( abs( stats::plogis(unlist( delta.new )) - stats::plogis( unlist( delta ) )) )
    }
    return(max.par.change)
}