[R] R for skip to the next row if condition met and then another condition to check

[Rui Barradas]

Hello,

Please post in plain text not in HTML, like the posting guide asks you to.
To give a data example use ?dput, like this:

dput(head(trboot3, 20))  # paste the output of this in your mail

If you have a sample of trboot4 please also use dput to post it.

Finally, I don't understand your second condition, what does "same 
number one below another in a row" mean? Is it "below" (different rows) 
or in the same row? And you say to keep the first and change the rest. 
Once again, is it the rest of the row?

Anyway I believe I have already found a problem in your code. In

for (i in 2:valboot-1)

you should try to see what exactly is 2:valboot-1. [Tip: it starts with a 1]
Maybe you meant 2:(valboot-1).

Rui Barradas

Em 04-12-2016 10:08, Ashwini Patil escreveu:
> I have a dataset with many rows and columns. Below is a sample:
>
> V7  V8  V90   1   0-1  1   -1-1  1   -1-1  0   -1-1  0   -1-1  0
> -1-1  0   -1-1  1   -10   1   -10   1   -1-1  0   00   0   00   0   00
>    0   00   0   00   -1  00   -1  -10   0   00   1   00   0   0
>
> This data is saved in a matrix trboot3 What I want to do is create a loop
> whereby two conditions are checked and data is altered.
>
>     1. If there is a zero, skip to the next row.
>     2. If there is same number one below another in a row, keep the first
>     number and change the rest to zero.
>
> Here is my code for the above loop:
>
> trboot4<-trboot3
> valboot<-length(trboot3[,1])for (k in 1:length(trboot3[1,])){
>    for (i in 2:valboot-1){
>      if (trboot3[k,i]==0) {i<-i+1}
>      else{
>        if(trboot3[k,i] == trboot3[k,i+1]){
>          for (j in i+1:valboot){ if(trboot3[k,j] ==
> trboot3[k,i]){trboot4[k,j]<-0}else{break}
>            if(j==valboot){break}
>          }
>        }
>      }
>    }}
>
> I want to save the new matrix in trboot4
>
> basically the above sample should become:
>
> V7  V8  V90   1   0-1  0   -10   0   00   0   00   0   00   0   00   0
>    00   1   00   0   00   0   0-1  0   00   0   00   0   00   0   00
> 0   00   -1  00   0   -10   0   00   1   00   0   0
>
>
> Thank you!
>
> 	[[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>