Grateful for any hints as to why I'm not getting the inner loop to cycle the
expected number of times.

 

Code and one run's results below.

 

Thanks,

 

Galen 

 

 

> # source("looptest.r")

> sp<-numeric()

> iter<-numeric()

> rn<-numeric()

> ds<-data.frame(sp, iter, rn)

> 

> for (sp in c(1:6)) {

+            i<-1

+            while (i <= 5) {

+                     rn<-0

+                     rn<-round(runif(1, 1, 5))

+                     if (i > rn) { break }

+ 

+                     else {

+                         iter[i]<-i

+                         newrow<-data.frame(sp, iter, rn)

+                         i<-( i + 1)

+                         }

+                  }

+                  ds<-rbind(ds, newrow)

+             }

> print(ds)

   sp iter rn

1   1    1  3  >> sp #1 should appear 3x, not 2x

2   1    2  3   

3   2    1  5  >> sp #2 should appear 5x, not 3x

4   2    2  5

5   2    3  5

6   3    1  5  >> sp #3 should appear 5x, not 3x

7   3    2  5

8   3    3  5

9   4    1  4  >> sp #4 should appear 4x, not 3x

10  4    2  4

11  4    3  4

12  5    1  3  >> this actually works as expected, but not 2x as with sp #1

13  5    2  3

14  5    3  3

15  6    1  5  >> sp #6 should appear 5x, not 3x

16  6    2  5

17  6    3  5

>  


	[[alternative HTML version deleted]]

