File: loadFactorTest.R

package info (click to toggle)
r-cran-foreach 1.4.0-1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 784 kB
  • sloc: sh: 58; makefile: 1
file content (14 lines) | stat: -rw-r--r-- 456 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
test01 <- function() {
  x <- c(1,10, 100, 1000, 10000)
  y <- c(1,10, 100, 1000, 10000)
  d <- expand.grid(x=x, y=y)

  foreach (i=seq_along(d$x), .combine='c') %do% {
    r <- foreach(icount(10), .combine='c') %do% (3 + 8)
    foreach(i=seq_along(r)) %do% checkEquals(r[i], 11L)
  }
  foreach (i=seq_along(d$x), .combine='c') %do% {
    r <- foreach(icount(10), .combine='c') %dopar% (3 + 8)
    foreach(i=seq_along(r)) %do% checkEquals(r[i], 11L)
  }
}