+ ts_data = system.file("testdata","ts",package="talweg")
+ exo_data = system.file("testdata","exo",package="talweg")
+
+ data0 = getData(ts_data, exo_data, input_tz="GMT", date_format="%Y-%m-%d %H:%M",
+ working_tz="GMT", predict_at=0, limit=Inf)
+ #TODO: with and without shift at origin (so series values at least forst ones are required)
+
+ indices = ...
+ pred0 = getForecast(.......)
+
+ for (i in seq_along(indices))
+ {
+ expect_identical(....)
+ }
+
+ data13 = getData(ts_data, exo_data, input_tz="GMT", date_format="%Y-%m-%d %H:%M",
+ working_tz="GMT", predict_at=13, limit=Inf)
+ #Attention: jours deviennent 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 (14h-->0h puis 1h-->13h)
+}