R/lsem_bootstrap_print_progress.R

Defines functions lsem_bootstrap_print_progress

## File Name: lsem_bootstrap_print_progress.R
## File Version: 0.091

lsem_bootstrap_print_progress <- function(rr, verbose, R)
{
    if (verbose){
        cat(rr, ' ')
        if (rr %% 10==0){ cat('\n')}
        if (rr==R){ cat('\n') }
        utils::flush.console()
    }
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.