[R] How to subtract the counter i in for loop?

[C W]

Hi list,
I am writing a for loop that looks like this:
samples<-rep(NA,10)
x <- rep(c(111, 225), 5)
for(i in 1:10){
    If(x[i]<200){
         samples[i] <- x[i]
     }else{
     i=i-1
    }
}

The problem is that the returning vector still contains NA,  I think the i
in "else" is not getting subtracted.  How should I get it to work?

Thanks,
Mike

        [[alternative HTML version deleted]]

______________________________________________
R-help@r-project.org mailing list
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.