Loop.R

1. ==============================================================================
2. Loop evaluation e.g. 6 parts, 4 comparisons
3. this function is construting an array e.g. 1,2,3,4,5,6,1,2,3
4. and then subsetting sequential arrays of length four from it
5. e.g. 1,2,3,4 2,3,4,5 3,4,5,6 etc
6. ==============================================================================

loopName <- c(0,14,25, 35,60,87,132,146)

start <- 1 loop <- length(loopName) comp <- 4 loopId <- 0:(loop+comp-1) %% loop +1

for(i in seq(loop)){

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

}

1. Returns;
2. 0 14 25 35
3. 14 25 35 60
4. 25 35 60 87
5. 35 60 87 132
6. 60 87 132 146
7. 87 132 146 0
8. 132 146 0 14
9. 146 0 14 25