+ runTwoStepClustering = function(inds)
+ {
+ if (parll)
+ require("epclust", quietly=TRUE)
+ indices_medoids = clusteringTask1(
+ inds, getContribs, K1, nb_series_per_chunk, ncores_clust, verbose, parll)
+ if (WER=="mix")
+ {
+ medoids2 = computeClusters2(getSeries(indices_medoids),
+ K2, getSeries, nb_curves, nb_series_per_chunk, ncores_clust, verbose, parll)
+ binarize(medoids2, synchrones_file, nb_series_per_chunk, sep, nbytes, endian)
+ return (vector("integer",0))
+ }
+ indices_medoids
+ }
+
+ # Cluster contributions in parallel (by nb_series_per_chunk)