for (i in 1:7)
expect_equal(pred00$getForecast(i), rep(pred_order[i],24))
pred13 = computeForecast(data_p, indices, "Persistence", "Zero", 14, Inf, 24,
for (i in 1:7)
expect_equal(pred00$getForecast(i), rep(pred_order[i],24))
pred13 = computeForecast(data_p, indices, "Persistence", "Zero", 14, Inf, 24,