## File Name: tam_mml_se_quick_verbose.R
## File Version: 0.02
tam_mml_se_quick_verbose <- function(pp, disp_progress, vv )
{
if ( ( pp==disp_progress[vv] ) & ( vv <=10) ){
cat("-") ;
utils::flush.console()
vv <- vv+1
}
return(vv)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.