R/immer_hrm_verbose_iterations.R

In immer: Item Response Models for Multiple Ratings

## File Name: immer_hrm_verbose_iterations.R
## File Version: 0.06

immer_hrm_verbose_iterations <- function(iter, it, print_iter, mcmc_start_time)
{
    if ( it %% print_iter==0 ){
        s_temp <- Sys.time()
        t0 <- difftime( s_temp, mcmc_start_time )
        time_diff <- ( iter - it ) * t0 / it
        units <- 'mins'
        time_diff <- as.numeric( time_diff, units=units )
        time_diff <- round( time_diff, digits=2 )
        t0 <- round( as.numeric( t0, units=units ), digits=2 )
        p1 <- paste0('*** Iteration ', it, ' | ',
                     'Remaining: ', time_diff, ' ', units,
                    ' | Elapsed: ', t0, ' ', units,
                    ' \n' )
        cat(p1)
        utils::flush.console()
    }
}