getStdHorizon = function()
24 - as.POSIXlt( private$.data[[1]]$time[1] )$hour + 1
,
- appendHat = function(time, exo_hat)
+ append = function(time, exo_hat)
private$.data[[length(private$.data)+1]] <- list("time"=time,"exo_hat"=exo_hat)
,
append = function(time, serie, exo)