-computeClusters1 = function(contribs, K1)
- cluster::pam(contribs, K1, diss=FALSE)$id.med
+clusteringTask2 = function(medoids, K2, getRefSeries, nb_ref_curves,
+ nb_series_per_chunk, nbytes,endian,ncores_clust=1,verbose=FALSE,parll=TRUE)
+{
+ if (verbose)
+ cat(paste("*** Clustering task 2 on ",nrow(medoids)," lines\n", sep=""))
+
+ if (nrow(medoids) <= K2)
+ return (medoids)
+ synchrones = computeSynchrones(medoids,
+ getRefSeries, nb_ref_curves, nb_series_per_chunk, ncores_clust, verbose, parll)
+ distances = computeWerDists(synchrones, nbytes, endian, ncores_clust, verbose, parll)
+ medoids[ computeClusters2(distances,K2,verbose), ]
+}