VarPasMpiExampDriver.R

In jamaas/VarPasMpiExamp: Toy model to get doMPI, foreach to work inside an R package

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