X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=R%2FData.R;h=a17e262753a932158524e432bb5f14d8f1c2becc;hp=311453b3f2c2790d3c510576a1bcf02941bcf811;hb=09cf9c19b5c6a04bc23c58b7ac8a4bbae2c6827d;hpb=3d69ff21e577fc7bb082257280661b64536c20e8

diff --git a/R/Data.R b/R/Data.R
index 311453b..a17e262 100644
--- 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
 		}
 	)