TODO: tests, reports

[talweg.git] / pkg / R / Data.R

diff --git a/pkg/R/Data.R b/pkg/R/Data.R
index 9b7db3f..d4609f2 100644 (file)
--- a/pkg/R/Data.R
+++ b/pkg/R/Data.R
@@ -44,54 +44,54 @@ 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)
                {
-                       "Get time values at specified index"
+                       "Time values at specified index"
 
                        index = dateIndexToInteger(index, .self)
                        data[[index]]$time
                },
                getCenteredSerie = function(index)
                {
-                       "Get serie values (centered) at specified index"
+                       "Serie values (centered) at specified index"
 
                        index = dateIndexToInteger(index, .self)
                        data[[index]]$serie
                },
                getLevel = function(index)
                {
-                       "Get level for the serie at specified index"
+                       "Level of the serie at specified index"
 
                        index = dateIndexToInteger(index, .self)
                        data[[index]]$level
                },
                getSerie = function(index)
                {
-                       "Get serie values (centered+level) at specified index"
+                       "Serie values (centered+level) at specified index"
 
                        index = dateIndexToInteger(index, .self)
                        data[[index]]$serie + data[[index]]$level
                },
                getExoHat = function(index)
                {
-                       "Get exogeous predictions at specified index"
+                       "Exogeous predictions at specified index"
 
                        index = dateIndexToInteger(index, .self)
                        data[[index]]$exo_hat
                },
-               getExoDm1 = function(index)
+               getExo = function(index)
                {
-                       "Get exogenous measures the day before specified index"
+                       "Exogenous measures at specified index"
 
                        index = dateIndexToInteger(index, .self)
-                       data[[index]]$exo_Dm1
+                       data[[index]]$exo
                }
        )
 )