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))
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) ) )