R/rm_facets_print_progress_deviance.R

In sirt: Supplementary Item Response Theory Models

## File Name: rm_facets_print_progress_deviance.R
## File Version: 0.08


rm_facets_print_progress_deviance <- function( dev, dev0, digits_deviance, iter )
{
    cat( paste( "   Deviance=", round( dev, digits_deviance ),
        if (iter > 1 ){ " | Deviance change=" } else {""},
        if( iter>1){ round( - dev + dev0, digits_deviance + 2)} else { ""}    ,"\n",sep="") )
}