- return (private$.predictShapeAux(data, fdays, today, horizon, local,
- best_window_endo, "endo", TRUE))
- }
- if (simtype == "exo")
- {
- return (private$.predictShapeAux(data, fdays, today, horizon, local,
- best_window_exo, "exo", TRUE))
- }
- if (simtype == "mix")
- {
- return(private$.predictShapeAux(data, fdays, today, horizon, local,
- c(best_window_endo,best_window_exo), "mix", TRUE))
+ best_window_exo = optimize(
+ errorOnLastNdays, c(0,7), simtype="exo")$minimum