getStdHorizon = function()
24 - as.POSIXlt( private$.data[[1]]$time[1] )$hour + 1
,
- append = function(time, exo_hat)
- private$.data[[length(private$.data)+1]] <- list("time"=time,"exo_hat"=exo_hat)
- ,
- append = function(time, serie, exo)
+ append = function(time, serie, exo, exo_hat)
{
- index <- length(private$.data)
level = mean(serie, na.rm=TRUE)
centered_serie = serie - level
- private$.data[[index]]$time <- time
- private$.data[[index]]$centered_serie <- centered_serie
- private$.data[[index]]$level <- level
- private$.data[[index]]$exo <- exo
+ private$.data[[length(private$.data)+1]] <- list(
+ "time"=time, #H-24 --> H-1
+ "centered_serie"=centered_serie, #at 'time'
+ "level"=level, #at 'time'
+ "exo"=exo, #at 'time' (yersteday 0am to last midnight)
+ "exo_hat"=exo_hat) #today 0am to next midnight
},
getTime = function(index)
{