R/tam_mml_progress_em0.R

Defines functions tam_mml_progress_em0

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

tam_mml_progress_em0 <- function(progress, iter, disp, print_estep=TRUE)
{
    if (progress){
        cat(disp)
        cat("Iteration", iter, "   ", paste( Sys.time() ) )
        if (print_estep){
            cat("\nE Step\n")
        }
        utils::flush.console()
    }
}

Try the TAM package in your browser

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

TAM documentation built on May 29, 2024, 2:20 a.m.