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)
})