fixes and improvements

[talweg.git] / R / Data.R

diff --git a/R/Data.R b/R/Data.R
index 311453b..a17e262 100644 (file)
--- a/R/Data.R
+++ b/R/Data.R
@@ -42,36 +42,42 @@ Data = setRefClass(
                {
                        "Get time values at specified index"
 
+                       index = dateIndexToInteger(index, .self)
                        data[[index]]$time
                },
                getCenteredSerie = function(index)
                {
                        "Get serie values (centered) at specified index"
 
+                       index = dateIndexToInteger(index, .self)
                        data[[index]]$serie
                },
                getLevel = function(index)
                {
                        "Get level for the serie at specified index"
 
+                       index = dateIndexToInteger(index, .self)
                        data[[index]]$level
                },
                getSerie = function(index)
                {
                        "Get 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"
 
+                       index = dateIndexToInteger(index, .self)
                        data[[index]]$exo_hat
                },
                getExoDm1 = function(index)
                {
                        "Get exogenous measures the day before specified index"
 
+                       index = dateIndexToInteger(index, .self)
                        data[[index]]$exo_Dm1
                }
        )