X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=pkg%2Ftests%2Ftestthat%2Ftest-computeFilaments.R;fp=pkg%2Ftests%2Ftestthat%2Ftest-computeFilaments.R;h=71729fa2b9750b2547266c917fe97007604a26b8;hp=0c58c6969607f7dbbfce939354cc68373845824e;hb=81cb8b9e38ae82f2c108f11df56d53c9e29366ed;hpb=a3344f7591f6f4b3d337a69e4a568e9b16e33415

diff --git a/pkg/tests/testthat/test-computeFilaments.R b/pkg/tests/testthat/test-computeFilaments.R
index 0c58c69..71729fa 100644
--- 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)