Difference between revisions of "Loop.R"

Latest revision as of 00:40, 6 June 2007

Code snipits and programs written in R, S or S-PLUS

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)])

}

@@ Line 1: / Line 1: @@
+# {{R}}
 # ==============================================================================
-# Loop evaluation e.g. 8 parts, 5 comparisons
+# 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    <- 8
+loop    <- length(loopName)
-comp    <- 5
+comp    <- 4
-# seq makes a sequence from 1 to 8+5-1
+loopId <- 0:(loop+comp-1) %% loop +1
-# %% 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)])
+   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