File: tsqrt.R

package info (click to toggle)
r-cran-foreach 1.3.0-2
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 628 kB
  • ctags: 4
  • sloc: sh: 76; makefile: 1
file content (20 lines) | stat: -rw-r--r-- 380 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
library(doSMP)

n <- 2000  # length of vectors
m <- 8000  # number of vectors

cat('starting workers...\n')
w <- startWorkers(workerCount=4, verbose=TRUE)

cat('registering workers...\n')
registerDoSMP(w)

print(tempdir())

cat('executing foreach...\n')
r <- foreach(x=irnorm(n, mean=1000, count=m)) %dopar% sqrt(x)

cat('stopping workers...\n')
stopWorkers(w)

cat('finished\n')