- level = mean(serie, na.rm=TRUE)
- centered_serie = serie - level
- 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
+ if (!is.null(time) && !is.null(value))
+ {
+ L = length(private$.tv)
+ if (L == 0 || strftime( tail(private$.tv[[L]]$time,1),
+ format="%H:%M:%S", tz="GMT" ) == "00:00:00")
+ {
+ # Append a new cell
+ private$.tv[[L+1]] <- list("time"=time, "serie"=value)
+ }
+ else
+ {
+ # Complete current cell
+ private$.tv[[L]]$time = c(private$.tv[[L]]$time, time)
+ private$.tv[[L]]$serie = c(private$.tv[[L]]$serie, value)
+ }
+ }
+ if (strftime( tail(private$.tv[[length(private$.tv)]]$time,1),
+ format="%H:%M:%S", tz="GMT" ) == "00:00:00")
+ {
+ private$.level = c(private$.level,
+ mean(private$.tv[[length(private$.tv)]]$serie, na.rm=TRUE))
+ }
+ if (!is.null(level_hat))
+ private$.level_hat = c(private$.level_hat, level_hat)
+ if (!is.null(exo))
+ private$.exo[[length(private$.exo)+1]] = exo
+ if (!is.null(exo_hat))
+ private$.exo_hat[[length(private$.exo_hat)+1]] = exo_hat