R/ccov_np_print_progress.R

Defines functions ccov_np_print_progress

## File Name: ccov_np_print_progress.R
## File Version: 0.03

ccov_np_print_progress <- function(progress, i, ii, display)
{
    if ( i < 20 ){
        if ( ii==display[i] & progress ){
            cat( paste( 5*i, '% ', sep='' ) )
            i <- i + 1
            if (i==11){
                cat('\n' )
            }
            utils::flush.console()
        }
    }
    return(i)
}

Try the sirt package in your browser

Any scripts or data that you put into this service are public.

sirt documentation built on May 29, 2024, 8:43 a.m.