- synchrones = computeSynchrones(medoids,
- getRefSeries, nb_ref_curves, nb_series_per_chunk, ncores_clust, verbose, parll)
- distances = computeWerDists(synchrones, ncores_clust, verbose, parll)
- medoids[ cluster::pam(distances, K2, diss=TRUE)$medoids , ]
+ if (verbose)
+ cat(paste("*** Clustering task 2 on ",ncol(medoids)," synchrones\n", sep=""))
+
+ if (ncol(medoids) <= K2)
+ return (medoids)
+ synchrones = computeSynchrones(medoids, getRefSeries, nb_ref_curves,
+ nb_series_per_chunk, sync_mean, ncores_clust, verbose, parll)
+ distances = computeWerDists(synchrones, nbytes, endian, ncores_clust, verbose, parll)
+ if (verbose)
+ cat(paste(" algoClust2() on ",nrow(distances)," items\n", sep=""))
+ medoids[ algoClust2(distances,K2), ]