R/gdina_progress_start_estimation.R

In alexanderrobitzsch/CDM: Cognitive Diagnosis Modeling

## File Name: gdina_progress_start_estimation.R
## File Version: 0.05

gdina_progress_start_estimation <- function( progress, linkfct, disp, G, groupre,
        s1, display)
{
    if (progress){
        cat(disp,"\n")
        cat( " Link function:", linkfct, "\n")
        if (G>1){
            cat(" Multiple group estimation with",G,"groups\n")
            if (groupre){ cat( "  Renumbered group identifier from 1 to",G,"\n") }
        }
        cat( "  **", paste(s1), "\n"   )
        cat(display)
        utils::flush.console()
    }
}