X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=epclust%2FR%2Fclustering.R;h=886bfbcca2fbd1b52239c2403e3c521d0c2c7f18;hp=3e7fd3866922d1c56b48741642ca88fd55d5082c;hb=e0154a59e55143dac0fbd2a4739a3509bc958e76;hpb=dc86eb0c992e6e4ab119d48398d040c4cf3a75fd

diff --git a/epclust/R/clustering.R b/epclust/R/clustering.R
index 3e7fd38..886bfbc 100644
--- a/epclust/R/clustering.R
+++ b/epclust/R/clustering.R
@@ -26,7 +26,7 @@ clusteringTask1 <- function(indices, getContribs, K1, algoClust1, nb_items_clust
 	ncores_clust=3, verbose=FALSE, parll=TRUE)
 {
 	if (verbose)
-		cat(paste("*** Clustering task 1 on ",length(indices)," series\n", sep=""))
+		cat(paste("*** Clustering task 1 on ",length(indices)," series [start]\n", sep=""))
 
 	if (length(indices) <= K1)
 		return (indices)
@@ -62,8 +62,7 @@ clusteringTask1 <- function(indices, getContribs, K1, algoClust1, nb_items_clust
 			}
 		if (verbose)
 		{
-			cat(paste("*** [iterated] Clustering task 1: now ",
-				length(indices)," medoids\n", sep=""))
+			cat(paste("*** Clustering task 1 on ",length(indices)," medoids [iter]\n", sep=""))
 		}
 	}
 	if (parll)