diff options
Diffstat (limited to 'R/multistart.R')
| -rw-r--r-- | R/multistart.R | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/R/multistart.R b/R/multistart.R index bdfbfe63..aeea2d81 100644 --- a/R/multistart.R +++ b/R/multistart.R @@ -45,13 +45,12 @@ #' #' f_saem_reduced <- update(f_saem_full, no_random_effect = "log_k2") #' illparms(f_saem_reduced) -#' # On Windows, we need to create a cluster first. When working with -#' # such a cluster, we need to export the mmkin object to the cluster -#' # nodes, as it is referred to when updating the saem object on the nodes. +#' # On Windows, we need to create a PSOCK cluster first and refer to it +#' # in the call to multistart() #' library(parallel) #' cl <- makePSOCKcluster(12) #' f_saem_reduced_multi <- multistart(f_saem_reduced, n = 16, cluster = cl) -#' parplot(f_saem_reduced_multi, lpos = "topright") +#' parplot(f_saem_reduced_multi, lpos = "topright", ylim = c(0.5, 2)) #' stopCluster(cl) #' } multistart <- function(object, n = 50, @@ -103,9 +102,7 @@ multistart.saem.mmkin <- function(object, n = 50, cores = 1, res <- parallel::mclapply(1:n, fit_function, mc.cores = cores, mc.preschedule = FALSE) } else { - res <- parallel::parLapplyLB(cluster, 1:n, fit_function, - mc.preschedule = FALSE - ) + res <- parallel::parLapplyLB(cluster, 1:n, fit_function) } attr(res, "orig") <- object attr(res, "start_parms") <- start_parms |