X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=R%2FData.R;h=9b7db3f766c4cdc07e2c3a95882ce34342920f34;hp=a17e262753a932158524e432bb5f14d8f1c2becc;hb=e030a6e31232332b73187eda25870e843152c174;hpb=31f7d913d4a99d0a4db9bcfe40e31cebf90b22e6

diff --git a/R/Data.R b/R/Data.R
index a17e262..9b7db3f 100644
--- a/R/Data.R
+++ b/R/Data.R
@@ -29,8 +29,21 @@ Data = setRefClass(
 		},
 		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)"