R progress bar

RprogressBar.r

td <- numeric(0)
ng <- 1000

### WITH A PROGRESS BAR
# create the progress bar
prog <- txtProgressBar(min=0, max=ng, char="*", style=3)
time1 <- Sys.time() # check system time
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
time2 <- Sys.time() # check system time
td <- rbind(td, (time2 - time1))

### WITHOUT A PROGRESS BAR
time1 <- Sys.time()
for(g in 1:ng){
 z <- numeric(10000)
 # do stuff
 z <- rgamma(10000, 1, 1)
}
time2 <- Sys.time()
close(pb)
td <- rbind(td, (time2 - time1))

rownames(td) <- c("withTimer","withoutTimer")
colnames(td) <- "time"
td