emielrv

library(devtools)
devtools::install_github("veneficusnl/vf_model_time_series")
library(vfmodels.timeseries)

data('EIA')
train <- 1:(nrow(data) - 5)
labels <- data$Date
x <- data$Value

model <- get_model(x = x,method = 'time_series', lag = 2, labels = labels, family = gaussian('log'), train = train )