# NOT RUN {
data("water_consumption")
x <- embed_timeseries(water_consumption, 5)[1:100,]
form <- target ~.
lpars <-
list(bm_timeseries = list(model = c("bm_arima","bm_tbats")))
bmodels <- bm_timeseries(form, x, lpars)
# }
Run the code above in your browser using DataLab