X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=pkg%2FR%2FData.R;h=6f82f239b1a1077ab9a41ae434f54b913fd6fb07;hp=9b7db3f766c4cdc07e2c3a95882ce34342920f34;hb=dea7ff860b42b3e246c8fa7ce2fb514561b8bc43;hpb=469529710f56c790ae932b45d13fed2e34bcabf2 diff --git a/pkg/R/Data.R b/pkg/R/Data.R index 9b7db3f..6f82f23 100644 --- a/pkg/R/Data.R +++ b/pkg/R/Data.R @@ -44,12 +44,12 @@ Data = setRefClass( else L1 }, - append = function(new_time, new_serie, new_level, new_exo_hat, new_exo_Dm1) + append = function(new_time, new_serie, new_level, new_exo_hat, new_exo) { - "Acquire a new vector of lists (time, serie, level, exo_hat, exo_Dm1)" + "Acquire a new vector of lists (time, serie, level, exo_hat, exo)" data[[length(data)+1]] <<- list("time"=new_time,"serie"=new_serie,"level"=new_level, - "exo_hat"=new_exo_hat,"exo_Dm1"=new_exo_Dm1) + "exo_hat"=new_exo_hat,"exo"=new_exo) }, getTime = function(index) { @@ -88,10 +88,10 @@ Data = setRefClass( }, getExoDm1 = function(index) { - "Get exogenous measures the day before specified index" + "Get exogenous measures at the specified index" index = dateIndexToInteger(index, .self) - data[[index]]$exo_Dm1 + data[[index]]$exo } ) )