X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=pkg%2Ftests%2Ftestthat%2Ftest.Forecaster.R;h=0986a3dfc9faa4f1703728a2c1c4c3bdb0c93ba2;hp=b20f104f72a5b4b14107f6775d41c904cd5de36f;hb=613a986f1517ab5a641771da62eba6c7f5a41577;hpb=6d97bfecf7310ed6682eecce1b7aa2f8185d4742

diff --git a/pkg/tests/testthat/test.Forecaster.R b/pkg/tests/testthat/test.Forecaster.R
index b20f104..0986a3d 100644
--- a/pkg/tests/testthat/test.Forecaster.R
+++ b/pkg/tests/testthat/test.Forecaster.R
@@ -2,34 +2,34 @@ context("Check that forecasters behave as expected")
 
 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)
-})
+}