R/mlnormal_verbose_f2.R

In alexanderrobitzsch/LAM: Some Latent Variable Models

## File Name: mlnormal_verbose_f2.R
## File Version: 0.103

mlnormal_verbose_f2 <- function(verbose, disp, iter, descriptions,
        objfun, objfun0, beta_change, theta_change )
{
    if (verbose){
        cat( paste0( '   ', descriptions['log_like_verbose2'],
                '=', round( objfun, 4 ),
            if (iter > 1){ ' | Change=' } else {''},
            if( iter > 1){ round(  objfun - objfun0, 6 )} else { ''},'\n',sep='') )
        cat( paste0( '    Maximum beta parameter change=',
                    paste0( round( beta_change,6), collapse=' ' ), '\n', sep=''))
        cat( paste0( '    Maximum theta parameter change=',
                    paste0( round( theta_change,6), collapse=' ' ), '\n', sep=''))
        utils::flush.console()
    }
}