Example code for using the Time Series Analysis Tool

example_vf_model_time_series.R

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 )
summary(model)
plot(model)
#Prediction is still very unreliable and should be looked at closer.
res <- predict(model, x = x, n.ahead = 2, labels = labels, train = train)