X-Git-Url: https://git.auder.net/img/rock_paper_scissors_lizard_spock.gif?a=blobdiff_plain;f=epclust%2FR%2Fclustering.R;h=886bfbcca2fbd1b52239c2403e3c521d0c2c7f18;hb=c25d83a0ea7435d3c72ed74738be86ddcccd7e66;hp=1774b19e686c657ea4a81768920d0ffc238bc8a7;hpb=3fb6e823601002c44ffbf913e83c8d24cfa1e819;p=epclust.git

diff --git a/epclust/R/clustering.R b/epclust/R/clustering.R
index 1774b19..886bfbc 100644
--- a/epclust/R/clustering.R
+++ b/epclust/R/clustering.R
@@ -25,6 +25,12 @@ NULL
 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 [start]\n", sep=""))
+
+	if (length(indices) <= K1)
+		return (indices)
+
 	if (parll)
 	{
 		# outfile=="" to see stderr/stdout on terminal
@@ -40,8 +46,6 @@ clusteringTask1 <- function(indices, getContribs, K1, algoClust1, nb_items_clust
 	{
 		# Balance tasks by splitting the indices set - as evenly as possible
 		indices_workers <- .splitIndices(indices, nb_items_clust, min_size=K1+1)
-		if (verbose)
-			cat(paste("*** [iterated] Clustering task 1 on ",length(indices)," series\n", sep=""))
 		indices <-
 			if (parll)
 			{
@@ -56,6 +60,10 @@ clusteringTask1 <- function(indices, getContribs, K1, algoClust1, nb_items_clust
 					inds[ algoClust1(getContribs(inds), K1) ]
 				) )
 			}
+		if (verbose)
+		{
+			cat(paste("*** Clustering task 1 on ",length(indices)," medoids [iter]\n", sep=""))
+		}
 	}
 	if (parll)
 		parallel::stopCluster(cl)