R/rm_facets_print_progress_deviance.R

Defines functions rm_facets_print_progress_deviance

## 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="") )
}

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.