R/mice_imputation_pls_print_progress3.R

In alexanderrobitzsch/miceadds: Some Additional Multiple Imputation Functions, Especially for 'mice'

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

mice_imputation_pls_print_progress3 <- function(pls.print.progress, time1, time2 )
{
    if( pls.print.progress ){
        cat( "\nMissing Data Draws finished ", substring(Sys.time(),1),"\n" )
        utils::flush.console()
        cat( "Time elapsed:", print(time2 - time1 ), "|", time1, "|", time2 )
        cat( "\n...................PLS....................................\n")
        utils::flush.console()
    }
}