Simplify plots: version OK with R6 classes

[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 e29f196..a02e6e9 100644 (file)
--- 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) ) )