- pred = list()
- forecaster = new(paste(forecaster,"Forecaster",sep=""), data=data,
- pjump =
- if (is.null(pjump))
- function() {}
- else
- getFromNamespace(paste("get",pjump,"JumpPredict",sep=""), "talweg"))
- for (today in indices)
- {
- #pred$append(...) is slow; TODO: use R6 class
- pred[[length(pred)+1]] = list(
- "serie" = forecaster$predict(today, memory, horizon, ...),
- "params" = forecaster$getParameters(),
- "index" = today
- )
- }
- new("Forecast",pred=pred)
+ pred = Forecast$new( sapply(indices, function(i) integerIndexToDate(i,data)) )
+ forecaster_class_name = getFromNamespace(paste(forecaster,"Forecaster",sep=""), "talweg")
+ forecaster = forecaster_class_name$new( #.pjump =
+ getFromNamespace(paste("get",pjump,"JumpPredict",sep=""), "talweg"))
+
+#oo = forecaster$predictSerie(data, integer_indices[1], memory, horizon, ...)
+#browser()
+
+ library(parallel)
+ ppp <- parallel::mclapply(seq_along(integer_indices), function(i) {
+ list(
+ "forecast" = forecaster$predictSerie(data, integer_indices[i], memory, horizon, ...),
+ "params"= forecaster$getParameters(),
+ "index" = integer_indices[i] )
+ }, mc.cores=3)
+
+#browser()
+
+for (i in seq_along(integer_indices))
+{
+ pred$append(
+ new_serie = ppp[[i]]$forecast,
+ new_params = ppp[[i]]$params,
+ new_index_in_data = ppp[[i]]$index
+ )
+}
+
+ pred