Difference between revisions of "Loop.R"
From Organic Design wiki
m |
|||
| (2 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 | ||
| + | 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; | # Returns; | ||
| Line 11: | Line 23: | ||
# 14 25 35 60 | # 14 25 35 60 | ||
# 25 35 60 87 | # 25 35 60 87 | ||
| − | # 35 60 87 0 | + | # 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
