CODEWITHSUNDEEP
rfor-loopnested-loops
user1357015
user1357015

Reputation: 11676

R for loop termination on out of bounds

I want to do the following nested for loop structure in R:

x<- c(a,b,c,d,e)
for(i in 1:length(x)){
  for(j in (i+1):length(x)){
     do something with (x, j)
  }
}

However, what ends up happening is that at one point j=6 (because j goes from i+1), and the loop still tries to execute and causes an out of bounds.

Of course I can always put in an if statement to check that j <= length(x) before I run the command but is there a way to do this more elegantly? For instance, in C++, I believe that the second loop would never execute...

Thank you for your help!

Upvotes: 1

Views: 61

Answers (2)

G. Grothendieck
G. Grothendieck

Reputation: 269451

Try this:

for( j in seq(i + 1, length = length(x) - i) ) ...

or

for( j in i + seq_len(length(x) - i) ) ...

or

for( j in seq(i, length(x))[-1] ) ...

Upvotes: 1

IRTFM
IRTFM

Reputation: 263301

The usual advice is to use seq_along:

x<- c(a,b,c,d,e)
for(i in seq_along(x)){
  for(j in seq_along( x[ -(1:i) ] ){
     do something with (x, i, j)
  }
}

Upvotes: 1

Related Questions