{
#Situation A: +Zero; correct if jump, wrong otherwise
pred00 = computeForecast(data_p, indices, "Neighbors", "Zero", 1, Inf, 24,
- simtype="mix", local=FALSE)
+ simtype="mix", local=FALSE, window=c(1,1))
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,
- simtype="mix", local=FALSE)
+ simtype="mix", local=FALSE, window=c(1,1))
for (i in 1:7)
expect_equal(pred13$getForecast(i), rep(i,24) )