},
getSize = function()
{
+ "Number of series in the dataset"
+
length(data)
},
+ getStdHorizon = function()
+ {
+ "'Standard' horizon, from t+1 to midnight"
+
+ L1 = length(data[[1]]$serie)
+ L2 = length(data[[2]]$serie)
+ if (L1 < L2)
+ L2 - L1
+ else
+ L1
+ },
append = function(new_time, new_serie, new_level, new_exo_hat, new_exo_Dm1)
{
"Acquire a new vector of lists (time, serie, level, exo_hat, exo_Dm1)"