R/mlnormal_verbose_f1.R

In LAM: Some Latent Variable Models

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

mlnormal_verbose_f1 <- function(verbose, disp, iter)
{
    if ( verbose ){
        cat(disp)
        cat("Iteration", iter, "   ", paste( Sys.time() ), "\n" )
    }
}