X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=pkg%2Ftests%2Ftestthat%2Ftest-Forecaster.R;h=3f5cf9cc7f7aeff5bf371056d257ab769891485e;hp=78e387ab5c6327716e12775a6046d2b97bb610af;hb=638f27f4296727aff62b56643beb9f42aa5b57ef;hpb=adf76c2a1fbeb7cfee31e1ce439a29a02373ee82

diff --git a/pkg/tests/testthat/test-Forecaster.R b/pkg/tests/testthat/test-Forecaster.R
index 78e387a..3f5cf9c 100644
--- 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) )