X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=epclust%2FR%2Fmain.R;h=977e61b235da2ea1ac4e0fc3c4cd40bbddcc049f;hp=2037dbe1e12360778f91869614ca96baff63e8cf;hb=e161499b97c782aadfc287c22b55f85724f86fae;hpb=1a1196f21036a321710f848d4cb28e6677f24904

diff --git a/epclust/R/main.R b/epclust/R/main.R
index 2037dbe..977e61b 100644
--- a/epclust/R/main.R
+++ b/epclust/R/main.R
@@ -186,7 +186,12 @@ claws = function(getSeries, K1, K2,
 		indices_all[((i-1)*nb_series_per_task+1):upper_bound]
 	})
 	if (verbose)
-		cat(paste("...Run ",ntasks," x stage 1 in parallel\n",sep=""))
+	{
+		message = paste("...Run ",ntasks," x stage 1", sep="")
+		if (WER=="mix")
+			message = paste(message," + stage 2", sep="")
+		cat(paste(message,"\n", sep=""))
+	}
 	if (WER=="mix")
 		{synchrones_file = paste(bin_dir,"synchrones",sep="") ; unlink(synchrones_file)}
 	if (parll && ntasks>1)
@@ -229,7 +234,7 @@ claws = function(getSeries, K1, K2,
 	indices_medoids = clusteringTask1(
 		indices, getContribs, K1, nb_series_per_chunk, ncores_tasks*ncores_clust, verbose, parll)
 	medoids1 = bigmemory::as.big.matrix( getSeries(indices_medoids) )
-	medoids2 = computeClusters2(medoids1, K2,
+	medoids2 = clusteringTask2(medoids1, K2,
 		getRefSeries, nb_curves, nb_series_per_chunk, ncores_tasks*ncores_clust, verbose, parll)
 
 	# Cleanup