'update'

[epclust.git] / epclust / R / computeSynchrones.R

diff --git a/epclust/R/computeSynchrones.R b/epclust/R/computeSynchrones.R
index f73e64e..09ff3a0 100644 (file)
--- a/epclust/R/computeSynchrones.R
+++ b/epclust/R/computeSynchrones.R
@@ -68,14 +68,14 @@ computeSynchrones = function(medoids, getSeries, nb_curves,
                medoids_desc <- bigmemory::describe(medoids)
                cl = parallel::makeCluster(ncores_clust)
                parallel::clusterExport(cl, envir=environment(),
-                       varlist=c("synchrones_desc","m_desc","medoids_desc","getRefSeries"))
+                       varlist=c("synchrones_desc","m_desc","medoids_desc","getSeries"))
        }
 
        if (verbose)
                cat(paste("--- Compute ",K," synchrones with ",nb_curves," series\n", sep=""))
 
-       # Balance tasks by splitting 1:nb_ref_curves into groups of size <= nb_series_per_chunk
-       indices_workers = .splitIndices(seq_len(nb_ref_curves), nb_series_per_chunk)
+       # Balance tasks by splitting 1:nb_curves into groups of size <= nb_series_per_chunk
+       indices_workers = .splitIndices(seq_len(nb_curves), nb_series_per_chunk)
        ignored <-
                if (parll)
                        parallel::parLapply(cl, indices_workers, computeSynchronesChunk)