projects
/
epclust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
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)
if (length(indices) <= K1)
return (indices)
@@
-62,8
+62,7
@@
clusteringTask1 <- function(indices, getContribs, K1, algoClust1, nb_items_clust
}
if (verbose)
{
}
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)
}
}
if (parll)