+ max_neighbs = 10 #TODO: 12 = arbitrary number
+ if (length(tdays) > max_neighbs)
+ {
+ distances2 <- .computeDistsEndo(data, today, tdays, predict_from)
+ ordering <- order(distances2)
+ tdays <- tdays[ ordering[1:max_neighbs] ]
+
+ print("VVVVV")
+ print(sort(distances2)[1:max_neighbs])
+ print(integerIndexToDate(today,data))
+ print(lapply(tdays,function(i) integerIndexToDate(i,data)))
+ print(rbind(data$getSeries(tdays-1), data$getSeries(tdays)))
+ }