X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=R%2FD_Neighbors.R;fp=R%2FD_Neighbors.R;h=0000000000000000000000000000000000000000;hb=e030a6e31232332b73187eda25870e843152c174;hp=dba5f378a99661dee36edb45443584ca7e4e249d;hpb=31f7d913d4a99d0a4db9bcfe40e31cebf90b22e6;p=talweg.git

diff --git a/R/D_Neighbors.R b/R/D_Neighbors.R
deleted file mode 100644
index dba5f37..0000000
--- a/R/D_Neighbors.R
+++ /dev/null
@@ -1,21 +0,0 @@
-#' Obtain delta forecast by the Neighbors method
-#'
-#' @inheritParams getForecast
-#' @inheritParams getZeroDeltaForecast
-getNeighborsDeltaForecast = function(data, today, memory, horizon, shape_params, ...)
-{
-	first_day = max(1, today-memory)
-	filter = shape_params$indices >= first_day
-	indices = shape_params$indices[filter]
-	weights = shape_params$weights[filter]
-	if (any(is.na(weights) | is.na(indices)))
-		return (NA)
-
-	gaps = sapply(indices, function(i) {
-		data$getSerie(i+1)[1] - tail(data$getSerie(i), 1)
-	})
-
-	scal_product = weights * gaps
-	norm_fact = sum( weights[!is.na(scal_product)] )
-	sum(scal_product, na.rm=TRUE) / norm_fact
-}