horizon = as.integer(horizon)[1]
if (horizon<=predict_from || horizon>length(data$getSerie(1)))
stop("Horizon in [predict_from+1,24] (hours)")
integer_indices = sapply(indices, function(i) dateIndexToInteger(i,data))
if (any(integer_indices<=0 | integer_indices>data$getSize()))
stop("Indices out of range")
horizon = as.integer(horizon)[1]
if (horizon<=predict_from || horizon>length(data$getSerie(1)))
stop("Horizon in [predict_from+1,24] (hours)")
integer_indices = sapply(indices, function(i) dateIndexToInteger(i,data))
if (any(integer_indices<=0 | integer_indices>data$getSize()))
stop("Indices out of range")