X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=pkg%2FR%2FJ_Neighbors.R;h=40341d9eb9cf77df34226a8c0f6f78180d6226ac;hp=7f6683013bcd8fb9eea66a1ab3855e1703f693ee;hb=c36568faefc97bb417d355e2084398c1ad1acf92;hpb=3ddf1c12af0c167fe7d3bb59e63258550270cfc5 diff --git a/pkg/R/J_Neighbors.R b/pkg/R/J_Neighbors.R index 7f66830..40341d9 100644 --- a/pkg/R/J_Neighbors.R +++ b/pkg/R/J_Neighbors.R @@ -17,11 +17,8 @@ getNeighborsJumpPredict = function(data, today, memory, horizon, params, ...) indices = params$indices[filter] weights = params$weights[filter] - if (any(is.na(weights) | is.na(indices))) - return (NA) - gaps = sapply(indices, function(i) { - head( data$getSerie(i+1), 1) - tail( data$getSerie(i), 1) + head( data$getSerie(i+1),1 ) - tail( data$getSerie(i),1 ) }) scal_product = weights * gaps norm_fact = sum( weights[!is.na(scal_product)] )