Here it is
rm(list=ls())
library(MASS)
library(abind)
library(scoringRules)
library(ncdf4)
library(raster)
vector1 <- c(5, 9, 3)
vector2 <- c(10, 11, 12, 13, 14, 15)
result <- array(c(vector1, vector2), dim = c(50, 361, 200, 31))
ind_eval <- x <- 1:31
train_length <- 10
uwind_pp_save <- array(NA, dim = c(50,361,201,length(ind_eval)))
for(ind_today in ind_eval){
cat("\n", "Starting at", paste(Sys.time()), ":", ind_today, "of", 72,"\n"); flush(stdout())
ind_training <- (ind_today-train_length):(ind_today-1)
cat ("ind_training is ", ind_training ,"\n")
cat("... post-processing", "\n")
uwind_fc_means_train <- apply(result[,,,ind_training], c(2,3,4), mean)#Entiendo que se está calculando la media en cada punto
}
I have altered the data because I am dealing with some files very heavy to upload. However, the error is the same.
Thanks for the answer.
Jaime.