Progress bar in R

progressBar.r

ng <- 1000

# create the progress bar
prog <- txtProgressBar(min=0, max=ng, char="*", style=3)

for(g in 1:ng){
 # do stuff
 z <- numeric(10000)
 z <- rgamma(10000, 1, 1)
 setTxtProgressBar(prog, g) # update the progress bar
}

close(prog) # close the progress bar