X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=pkg%2Ftests%2Ftestthat%2Ftest.Forecaster.R;h=a02e6e94b66e0e8bbca095383b95335284a9f7ef;hb=98e958cab563866f8e00886b54336018a2e8bc97;hp=e29f19655f3f8f95dac46ae046789acff28f75a5;hpb=99f83c9af27492f6fb9b10f51fb8704ed588f5c1;p=talweg.git

diff --git a/pkg/tests/testthat/test.Forecaster.R b/pkg/tests/testthat/test.Forecaster.R
index e29f196..a02e6e9 100644
--- a/pkg/tests/testthat/test.Forecaster.R
+++ b/pkg/tests/testthat/test.Forecaster.R
@@ -65,8 +65,10 @@ test_that("Persistence method behave as expected",
 	expect_equal(pred13_dd$getSerie(7), c( rep(7,11), rep(8,13) ) )
 
 	#Situation B: +Persistence, (generally) correct
-	pred00_sd = computeForecast(data00, indices, "Persistence", "Persistence", Inf, 24, same_day=TRUE)
-	pred00_dd = computeForecast(data00, indices, "Persistence", "Persistence", Inf, 24, same_day=FALSE)
+	pred00_sd = computeForecast(data00, indices, "Persistence", "Persistence", Inf, 24,
+		same_day=TRUE)
+	pred00_dd = computeForecast(data00, indices, "Persistence", "Persistence", Inf, 24,
+		same_day=FALSE)
 	for (i in 3:7)
 	{
 		expect_equal(pred00_sd$getSerie(i), rep(i,24))
@@ -78,8 +80,10 @@ test_that("Persistence method behave as expected",
 	expect_equal(pred00_sd$getSerie(2), rep(2,24) )
 	expect_equal(pred00_dd$getSerie(2), rep(-5,24) )
 
-	pred13_sd = computeForecast(data13, indices, "Persistence", "Persistence", Inf, 24, same_day=TRUE)
-	pred13_dd = computeForecast(data13, indices, "Persistence", "Persistence", Inf, 24, same_day=FALSE)
+	pred13_sd = computeForecast(data13, indices, "Persistence", "Persistence", Inf, 24,
+		same_day=TRUE)
+	pred13_dd = computeForecast(data13, indices, "Persistence", "Persistence", Inf, 24,
+		same_day=FALSE)
 	for (i in 2:6)
 	{
 		expect_equal(pred13_sd$getSerie(i), c( rep(i,11), rep(i%%7+1,13) ) )