Displaying 1 result from an estimated 1 matches for "initseeds".
Did you mean:
init_seed
2012 Jan 13
0
Example of "task seeds" with R parallel. Critique?
...obalEnv)
currentStream <<- n
}
useStream(n=1, origin=TRUE)
rnorm(4)
currentStream
useStream(n=2, origin=TRUE)
rnorm(4)
currentStream
## Now, make that work in a clustered environment
cl <- makeCluster(9, "MPI")
## run on worker, so can retrieve seeds for particular run
initSeeds <- function(p = NULL){
currentStream <<- 1
projSeeds[[p]]
}
clusterEvalQ(cl, {
RNGkind("L'Ecuyer-CMRG")
})
clusterExport(cl, c("projSeeds", "useStream", "initSeeds"))
someHorrendousFunction <- function(run, parm){
currentStream <...