- for(i in (1:nstep + 1)) {
-
- #progress bar
- if(i %% 100 == 0){
- z<-i/nstep
- zt<-(i-100)/(nstep)
- polygon(c(zt,zt,z,z), c(1,0,0,1), col="black")
-
+ for(i in (1:nstep + 1))
+ {
+ #progress bar
+ if(progress.bar==TRUE)
+ {
+ if(i %% 100 == 0)
+ {
+ z<-i/nstep
+ zt<-(i-100)/(nstep)
+ polygon(c(zt,zt,z,z), c(1,0,0,1), col="black")
+ }