fixing errors with doParallel

R/Rphree_ReactTrans.R

 ##  Functions for dealing with surrogate simulations
 
 ### Marco De Lucia, delucia@gfz-potsdam.de, 2009-2018
-### Time-stamp: "Last modified 2018-05-16 17:52:14 delucia"
+### Time-stamp: "Last modified 2018-05-16 17:58:01 delucia"
 
 
 ##' Todo
@@ -244,7 +244,7 @@ ReactTranspBalanceEq <- function(setup, init, maxtime, step=c("time","iter","fix
     initsim  <- setup$initsim
 
     if (procs > 1) {
-        parallel::registerDoParallel(procs)
+        doParallel::registerDoParallel(procs)
         msg("Registered default doParallel cluster with ", procs, "nodes")
     }
 
@@ -532,7 +532,7 @@ ReactTranspBalanceKin <- function(setup, init, maxtime, step=c("time","iter","fi
     ann      <- setup$ann
 
     if (procs > 1) {
-        parallel::registerDoParallel(procs)
+        doParallel::registerDoParallel(procs)
         msg("Registered default doParallel cluster with ", procs, "nodes")
     }