merge with remote

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

diff --git a/pkg/tests/testthat/test-computeFilaments.R b/pkg/tests/testthat/test-computeFilaments.R
index 0c58c69..71729fa 100644 (file)
--- a/pkg/tests/testthat/test-computeFilaments.R
+++ b/pkg/tests/testthat/test-computeFilaments.R
@@ -7,7 +7,7 @@ test_that("output is as expected on simulated series",
        # index 144 : serie type 3, yersteday type 2
        pred = computeForecast(data, 144, "Neighbors", "Zero", predict_from=1,
                horizon=length(data$getSerie(1)), simtype="endo", local=FALSE, window=1, opera=TRUE)
-       f = computeFilaments(data, pred, 1, 8, limit=60, plot=FALSE)
+       f = computeFilaments(data, pred, 1, limit=60, plot=FALSE)
 
        # Expected output: 50-3-10 series of type 2+1 = 3,
        # then 23 series of type 3+1 %% 3 = 1 (3 = closest next)
@@ -31,7 +31,7 @@ test_that("output is as expected on simulated series",
        # index 143 : serie type 2
        pred = computeForecast(data, 143, "Neighbors", "Zero", predict_from=1,
                horizon=length(data$getSerie(1)), simtype="endo", local=FALSE, window=1, opera=TRUE)
-       f = computeFilaments(data, pred, 1, 8, limit=50, plot=FALSE)
+       f = computeFilaments(data, pred, 1, limit=50, plot=FALSE)
 
        # Expected output: 50-10-3 series of type 1+1=2,
        # then 13 series of type 3+1 %% 3 = 1 (closest next)