# NOT RUN {
specs <- model_specs(
  learner = c("bm_svr", "bm_mars"),
  learner_pars = list(
    bm_glm = list(alpha = c(0, .5, 1)),
    bm_svr = list(kernel = c("rbfdot"),
                  C = c(1, 3))
  )
)
data("water_consumption")
waterc <- embed_timeseries(water_consumption, 5)
train <- waterc[1:300, ] # toy size for checks
test  <- waterc[301:320, ] # toy size for checks
model <- constructive_aggregation(target ~., train, specs, 10,5,NULL,"window_loss","simple")
preds <- predict(model, test)
# }
Run the code above in your browser using DataLab