+context("Check that forecasters behave as expected")
+
+test_that("Average+Zero method behave as expected",
+{
+
+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)
+})