Loop.R

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

start <- 1 loop <- 8 comp <- 5

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

loops <- seq(loop + comp - 1) %% loop

for(i in seq(loop)){

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

}