X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=epclust%2FR%2FcomputeSynchrones.R;h=09ff3a09aae87d539902dcb9790f9312cc1c47d3;hp=f73e64ef29e2f20435bc0c16f10dca8ca7459212;hb=3c5a4b0880db63367a474a568e1322b3999932fe;hpb=40f12a2f66d06fd77183ea02b996f5c66f90761c

diff --git a/epclust/R/computeSynchrones.R b/epclust/R/computeSynchrones.R
index f73e64e..09ff3a0 100644
--- 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)