+ 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")
+ {
+
+
+
+
+#TODO: getSeries(indices_medoids) BAD ; il faudrait une big.matrix de medoids en entree
+ #OK en RAM il y en aura 1000 (donc 1000*K1*17519... OK)
+ #...mais du coup chaque process ne re-dupliquera pas medoids
+
+
+ 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
+ }
+