adapt Bruno method into package, add 'operational' mode

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

diff --git a/pkg/tests/testthat/test-Forecaster.R b/pkg/tests/testthat/test-Forecaster.R
index 78e387a..3f5cf9c 100644 (file)
--- a/pkg/tests/testthat/test-Forecaster.R
+++ b/pkg/tests/testthat/test-Forecaster.R
@@ -97,12 +97,12 @@ test_that("Neighbors method behave as expected",
 {
        #Situation A: +Zero; correct if jump, wrong otherwise
        pred00 = computeForecast(data_p, indices, "Neighbors", "Zero", 1, Inf, 24,
-               simtype="mix", local=FALSE)
+               simtype="mix", local=FALSE, window=c(1,1))
        for (i in 1:7)
                expect_equal(pred00$getForecast(i), rep(pred_order[i],24))
 
        pred13 = computeForecast(data_p, indices, "Persistence", "Zero", 14, Inf, 24,
-               simtype="mix", local=FALSE)
+               simtype="mix", local=FALSE, window=c(1,1))
        for (i in 1:7)
                expect_equal(pred13$getForecast(i), rep(i,24) )