Difference between revisions of "Loop.R"
From Organic Design wiki
(comment) |
m |
||
| (4 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
| + | # {{R}} | ||
# ============================================================================== | # ============================================================================== | ||
# Loop evaluation e.g. 6 parts, 4 comparisons | # Loop evaluation e.g. 6 parts, 4 comparisons | ||
| Line 6: | Line 7: | ||
# ============================================================================== | # ============================================================================== | ||
| + | |||
| + | loopName <- c(0,14,25, 35,60,87,132,146) | ||
start <- 1 | start <- 1 | ||
| − | loop <- | + | loop <- length(loopName) |
comp <- 4 | comp <- 4 | ||
| − | + | loopId <- 0:(loop+comp-1) %% loop +1 | |
for(i in seq(loop)){ | for(i in seq(loop)){ | ||
| − | print( | + | print(loopName[loopId][seq(from=i, length=comp)]) |
} | } | ||
| + | |||
| + | # Returns; | ||
| + | # 0 14 25 35 | ||
| + | # 14 25 35 60 | ||
| + | # 25 35 60 87 | ||
| + | # 35 60 87 132 | ||
| + | # 60 87 132 146 | ||
| + | # 87 132 146 0 | ||
| + | # 132 146 0 14 | ||
| + | # 146 0 14 25 | ||
Latest revision as of 00:40, 6 June 2007
Code snipits and programs written in R, S or S-PLUS
- ==============================================================================
- Loop evaluation e.g. 6 parts, 4 comparisons
- this function is construting an array e.g. 1,2,3,4,5,6,1,2,3
- and then subsetting sequential arrays of length four from it
- e.g. 1,2,3,4 2,3,4,5 3,4,5,6 etc
- ==============================================================================
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)])
}
- Returns;
- 0 14 25 35
- 14 25 35 60
- 25 35 60 87
- 35 60 87 132
- 60 87 132 146
- 87 132 146 0
- 132 146 0 14
- 146 0 14 25
