X-Git-Url: https://git.auder.net/assets/rpsls.css?a=blobdiff_plain;f=pkg%2Ftests%2Ftestthat%2Ftest.Forecaster.R;h=a02e6e94b66e0e8bbca095383b95335284a9f7ef;hb=63ff1ecbd80adfe347faa0d954f526d15f033c22;hp=b20f104f72a5b4b14107f6775d41c904cd5de36f;hpb=6d97bfecf7310ed6682eecce1b7aa2f8185d4742;p=talweg.git

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