aaronberdanier · April 11, 2012 19:51 · Apr 11, 2012
diff --git a/progressBar.r b/progressBar.r
@@ -0,0 +1,13 @@
+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