- private$.data[[length(private$.data)+1]] <- list(
- "time"=new_time, "centered_serie"=new_centered_serie, "level"=new_level,
- "exo"=new_exo, "exo_hat"=new_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