Dominic
624
reputation
5
11
a <- rnorm(10) b <- seq(20,1) c <- rep(NA, 10)
j <- 1 for ( i in 1:length(b) ) { if ( b[i]/2 == round(b[i]/2) ) { c[j] <- b[i] + 0.1 j <- j + 1 } else { } }