Commit b4c8045f authored by Marco De Lucia's avatar Marco De Lucia
Browse files

fixing errors with doParallel

parent 96c910c3
## Functions for dealing with surrogate simulations
### Marco De Lucia, delucia@gfz-potsdam.de, 2009-2018
### Time-stamp: "Last modified 2018-05-16 16:56:49 delucia"
### Time-stamp: "Last modified 2018-05-16 17:52:14 delucia"
##' Todo
......@@ -244,10 +244,9 @@ ReactTranspBalanceEq <- function(setup, init, maxtime, step=c("time","iter","fix
initsim <- setup$initsim
if (procs > 1) {
registerDoParallel(procs)
parallel::registerDoParallel(procs)
msg("Registered default doParallel cluster with ", procs, "nodes")
}
cl <- getDefaultCluster()
n <- setup$n
L <- setup$len # m
......@@ -533,7 +532,7 @@ ReactTranspBalanceKin <- function(setup, init, maxtime, step=c("time","iter","fi
ann <- setup$ann
if (procs > 1) {
registerDoParallel(procs)
parallel::registerDoParallel(procs)
msg("Registered default doParallel cluster with ", procs, "nodes")
}
......
......@@ -20,10 +20,10 @@ Train(c("parRF", "leaps", "MARS"),
allow_neg_cols="pe",
preproc_para = FALSE,
selection_criteria = "MAD",
write_full_residuals=TRUE,
write_full_residuals=FALSE,
tuner=FALSE,
use_cores=8,
training_samples = 0.95,
use_cores=4,
training_samples = 0.85,
session_path=FALSE,
write_filepath_prefix=path_dumps
)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment