aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2023-01-05 15:03:06 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2023-01-05 15:03:06 +0100
commita5903e74d9cf54c764d5bbc48e461cecd5f56e72 (patch)
tree158308fb452e92b47e56259110febe6ffa63e629
parenta583cd7e3eecef4c70ac09304495c765a84e76ce (diff)
Don't preschedule multistart runs
Sometimes a lot of them fail, so we were wasting time
-rw-r--r--R/multistart.R7
1 files changed, 5 insertions, 2 deletions
diff --git a/R/multistart.R b/R/multistart.R
index 61ef43dc..bdfbfe63 100644
--- a/R/multistart.R
+++ b/R/multistart.R
@@ -100,9 +100,12 @@ multistart.saem.mmkin <- function(object, n = 50, cores = 1,
}
if (is.null(cluster)) {
- res <- parallel::mclapply(1:n, fit_function, mc.cores = cores)
+ res <- parallel::mclapply(1:n, fit_function,
+ mc.cores = cores, mc.preschedule = FALSE)
} else {
- res <- parallel::parLapply(cluster, 1:n, fit_function)
+ res <- parallel::parLapplyLB(cluster, 1:n, fit_function,
+ mc.preschedule = FALSE
+ )
}
attr(res, "orig") <- object
attr(res, "start_parms") <- start_parms

Contact - Imprint