R/lsem_bootstrap_print_progress.R

In sirt: Supplementary Item Response Theory Models

## 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()
    }
}