rm(list=ls(all=TRUE))
suppressMessages(library(doMPI))
library(VarPasMpiExamp)
## load MPI cluster, in this case a small example on one PC running open-MPI
cl <- doMPI::startMPIcluster(count=6)
doMPI::registerDoMPI(cl)
## =========================================
## Now run the models
## set values for all regular arguments, required before running the simulation
regargs(fun2vars = fun2vars,
fun3vars = fun3vars,
fun4vars = fun4vars)
## run the top level function which calls the others
fun1(num.sim = 10, num.per = 8, num.day = 50)
fun2vars <- list(fun22on = TRUE, var21 = 0.5, var22 = 5)
fun3vars <- list(fun3on =TRUE, var31 = 500)
fun4vars <- list(var41 = 36.0, fun4on = TRUE)
## set values for all regular arguments required
regargs(fun2vars = fun2vars,
fun3vars = fun3vars,
fun4vars = fun4vars)
## run the top level function which calls the others
fun1(num.sim = 10, num.per = 8, num.day = 50)
fun3vars <- list(fun3on = TRUE, var31 = 5)
## set values for all regular arguments required
regargs(fun2vars = fun2vars,
fun3vars = fun3vars,
fun4vars = fun4vars)
## run the top level function which calls the others
fun1(num.sim = 10, num.per = 8, num.day = 50)
closeCluster(cl)
mpi.quit()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.