3 #' @description Data encapsulation
7 #' \item time: vector of times
8 #' \item serie: centered series
9 #' \item level: corresponding levels
10 #' \item exo_hat: predicted exogenous variables
11 #' \item exo_Dm1: List of measured exogenous variables at day minus 1
24 initialize = function(...)
26 "Initialize empty Data object"
34 append = function(new_time, new_serie, new_level, new_exo_hat, new_exo_Dm1)
36 "Acquire a new vector of lists (time, serie, level, exo_hat, exo_Dm1)"
38 data[[length(data)+1]] <<- list("time"=new_time,"serie"=new_serie,"level"=new_level,
39 "exo_hat"=new_exo_hat,"exo_Dm1"=new_exo_Dm1)
41 getTime = function(index)
43 "Get time values at specified index"
47 getCenteredSerie = function(index)
49 "Get serie values (centered) at specified index"
53 getLevel = function(index)
55 "Get level for the serie at specified index"
59 getSerie = function(index)
61 "Get serie values (centered+level) at specified index"
63 data[[index]]$serie + data[[index]]$level
65 getExoHat = function(index)
67 "Get exogeous predictions at specified index"
71 getExoDm1 = function(index)
73 "Get exogenous measures the day before specified index"