# 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