X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=pkg%2FR%2FcomputeForecast.R;h=ef46dd3b7f516c23ef91430a923652224c924e1f;hp=ca8badd3523d6220d31cfe0e6318e030f64f7a79;hb=638f27f4296727aff62b56643beb9f42aa5b57ef;hpb=adf76c2a1fbeb7cfee31e1ce439a29a02373ee82

diff --git a/pkg/R/computeForecast.R b/pkg/R/computeForecast.R
index ca8badd..ef46dd3 100644
--- a/pkg/R/computeForecast.R
+++ b/pkg/R/computeForecast.R
@@ -56,6 +56,8 @@ computeForecast = function(data, indices, forecaster, pjump, predict_from,
 	predict_from = as.integer(predict_from)[1]
 	if (! predict_from %in% 1:length(data$getSerie(1)))
 		stop("predict_from in [1,24] (hours)")
+	if (hasArg("opera") && !list(...)$opera && memory < Inf)
+		memory <- Inf #finite memory in training mode makes no sense
 	horizon = as.integer(horizon)[1]
 	if (horizon<=predict_from || horizon>length(data$getSerie(1)))
 		stop("Horizon in [predict_from+1,24] (hours)")