draft Neighbors2; fix bug in Neighbors1

[talweg.git] / pkg / R / F_Neighbors.R

diff --git a/pkg/R/F_Neighbors.R b/pkg/R/F_Neighbors.R
index 5b1f826..600c5c8 100644 (file)
--- a/pkg/R/F_Neighbors.R
+++ b/pkg/R/F_Neighbors.R
@@ -103,7 +103,7 @@ NeighborsForecaster = R6::R6Class("NeighborsForecaster",
                                        # Require at least half of non-NA common values to compute the distance
                                        if ( !any( is.na(delta) ) )
                                                distances2[i] = mean(delta^2)
-                               }
+                               Centered}
 
                                sd_dist = sd(distances2)
                                if (sd_dist < .Machine$double.eps)
@@ -171,7 +171,7 @@ NeighborsForecaster = R6::R6Class("NeighborsForecaster",
 
                        prediction = rep(0, horizon)
                        for (i in seq_along(fdays))
-                               prediction = prediction + similarities[i] * data$getSerie(fdays[i]+1)[1:horizon]
+                               prediction = prediction + similarities[i] * data$getCenteredSerie(fdays[i]+1)[1:horizon]
                        prediction = prediction / sum(similarities, na.rm=TRUE)
 
                        if (final_call)