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

diff --git a/pkg/tests/testthat/test.Forecaster.R b/pkg/tests/testthat/test.Forecaster.R
new file mode 100644
index 0000000..b20f104
--- /dev/null
+++ b/pkg/tests/testthat/test.Forecaster.R
@@ -0,0 +1,35 @@
+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)
+})