test_that("Average+Zero method behave as expected",
{
+ 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)
+}
test_that("Persistence+Zero method behave as expected",
{
+}
test_that("Neighbors+Zero method behave as expected",
{
+}
test_that("Neighbors+Neighbors method behave as expected",
{
-
-
-
-#TODO: with and without shift at origin (so series values at least forst ones are required)
-
-
- n = 1500
- series = list()
- for (i in seq_len(n))
- {
- index = (i%%3) + 1
- level = mean(s[[index]])
- serie = s[[index]] - level + rnorm(L,sd=0.05)
- # 10 series with NAs for index 2
- if (index == 2 && i >= 60 && i<= 90)
- serie[sample(seq_len(L),1)] = NA
- series[[i]] = list("level"=level,"serie"=serie) #no need for more :: si : time !!!
- }
- data = new("Data", data=series)
-
- dateIndexToInteger = function(index, data)
-})
+}