R/progressFunction.R

In eifer4/stochasticSampling: Stochastic partitioning sampler.

progressFunction <- function(iter, n.burnin, chain) {
  
  
    if(iter <= n.burnin){
      cat("\rChain ", chain, ": Warm-up iteration number",format(iter, digits=2, scientific=TRUE, width=6), "of", format(n.burnin, digits=2, scientific=TRUE, width=6))
      if(iter == n.burnin){
        cat("\nChain ", chain, ": Sampling iteration number",format(iter-n.burnin, digits=2, scientific=TRUE, width=6), "of", format(n.iter-n.burnin, digits=2, scientific=TRUE, width=6))
      }
    } else {
      cat("\rChain ", chain, ": Sampling iteration number",format(iter-n.burnin, digits=2, scientific=TRUE, width=6), "of", format(n.iter-n.burnin, digits=2, scientific=TRUE, width=6))
    }
    
}