- appendHat = function(time, hat_serie, hat_exo)
- {
- hat_level = mean(hat_serie, na.rm=TRUE)
- hat_centered_serie = hat_serie - hat_level
- private$.data[[length(private$.data)+1]] <- list(
- "time"=time, "hat_centered_serie"=hat_centered_serie,
- "hat_level"=hat_level, "hat_exo"=hat_exo )
- },
- append = function(serie, exo)
+ appendHat = function(time, exo_hat)
+ private$.data[[length(private$.data)+1]] <- list("time"=time,"exo_hat"=exo_hat)
+ ,
+ append = function(time, serie, exo)