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"
45 index = dateIndexToInteger(index, .self)
48 getCenteredSerie = function(index)
50 "Get serie values (centered) at specified index"
52 index = dateIndexToInteger(index, .self)
55 getLevel = function(index)
57 "Get level for the serie at specified index"
59 index = dateIndexToInteger(index, .self)
62 getSerie = function(index)
64 "Get serie values (centered+level) at specified index"
66 index = dateIndexToInteger(index, .self)
67 data[[index]]$serie + data[[index]]$level
69 getExoHat = function(index)
71 "Get exogeous predictions at specified index"
73 index = dateIndexToInteger(index, .self)
76 getExoDm1 = function(index)
78 "Get exogenous measures the day before specified index"
80 index = dateIndexToInteger(index, .self)