Loop.R

1. ==============================================================================
2. Loop evaluation e.g. 8 parts, 5 comparisons
3. ==============================================================================

start <- 1 loop <- 6 comp <- 4

1. seq makes a sequence from 1 to 8+5-1
2.  %% yields the modulus remainder of a division

loops <- 0:(loop+comp-1) %% loop +1

for(i in seq(loop)){

 print(loops[seq(from=i, length=comp)])

}