- 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)
-
+ parll=TRUE #FALSE
+ if (parll)
+ {
+ 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)
+ }
+ else
+ {
+ ppp <- lapply(seq_along(integer_indices), function(i) {
+ list(
+ "forecast" = forecaster$predictSerie(data, integer_indices[i], memory, horizon, ...),
+ "params"= forecaster$getParameters(),
+ "index" = integer_indices[i] )
+ })
+ }