advance on tests

[talweg.git] / pkg / tests / testthat / test.Forecaster.R

diff --git a/pkg/tests/testthat/test.Forecaster.R b/pkg/tests/testthat/test.Forecaster.R
new file mode 100644 (file)
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)
+})