'update'

[epclust.git] / epclust / R / main.R

diff --git a/epclust/R/main.R b/epclust/R/main.R
index cbc92b1..31ce390 100644 (file)
--- a/epclust/R/main.R
+++ b/epclust/R/main.R
@@ -304,8 +304,8 @@ claws <- function(getSeries, K1, K2, nb_per_chunk,
        if (WER=="mix")
        {
                indices = seq_len(ntasks*K2)
-               # Now series must be retrieved from synchrones_file
-               getSeries = function(inds) getDataInFile(inds, synchrones_file, nbytes, endian)
+               # Now series (synchrones) must be retrieved from medoids_file
+               getSeries = function(inds) getDataInFile(inds, medoids_file, nbytes, endian)
                # Contributions must be re-computed
                unlink(contribs_file)
                index = 1
@@ -316,6 +316,9 @@ claws <- function(getSeries, K1, K2, nb_per_chunk,
                        contribs_file, nb_series_per_chunk, nbytes, endian)
        }
 
+#TODO: check THAT
+
+
        # Run step2 on resulting indices or series (from file)
        if (verbose)
                cat("...Run final // stage 1 + stage 2\n")