.

SantanderMetGroup · Feb 9, 2021 · a0eaa8c · a0eaa8c
1 parent 42c45cb
commit a0eaa8c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/downscaleChunk.R b/R/downscaleChunk.R
@@ -91,7 +91,7 @@ downscaleChunk <- function(x, y, newdata, simulate = FALSE,
     })
     p <- NULL
   })
-  ini <- ifelse(isTRUE(predict),length(newdata)*length(simulate)+1,length(newdata)*length(simulate))
+  ini <- ifelse(isTRUE(predict),(length(newdata)*length(simulate))+1,length(newdata)*length(simulate))
   pred <- list()
   for (i in 1:ini) {
     lf <- list.files("./", pattern = paste0("dataset",i), full.names = TRUE)