Bug fixed: package OK

[epclust.git] / epclust / R / clustering.R

diff --git a/epclust/R/clustering.R b/epclust/R/clustering.R
index 3e7fd38..886bfbc 100644 (file)
--- 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)