# 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)
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)