if (FALSE) {
# Simulate data with 3 series and AR trend model
simdat <- sim_mvgam(n_series = 3, trend_model = AR())
# Fit mvgam model
mod <- mvgam(
y ~ s(season, bs = 'cc', k = 6),
trend_model = AR(),
noncentred = TRUE,
data = simdat$data_train,
chains = 2,
silent = 2
)
# Hindcasts on response scale
hc <- hindcast(mod)
str(hc)
# Use summary() to extract hindcasts / forecasts for custom plotting
head(summary(hc), 12)
# Or just use the plot() function for quick plots
plot(hc, series = 1)
plot(hc, series = 2)
plot(hc, series = 3)
# Forecasts on response scale
fc <- forecast(
mod,
newdata = simdat$data_test
)
str(fc)
head(summary(fc), 12)
plot(fc, series = 1)
plot(fc, series = 2)
plot(fc, series = 3)
# Forecasts as expectations
fc <- forecast(
mod,
newdata = simdat$data_test,
type = 'expected'
)
head(summary(fc), 12)
plot(fc, series = 1)
plot(fc, series = 2)
plot(fc, series = 3)
# Dynamic trend extrapolations
fc <- forecast(
mod,
newdata = simdat$data_test,
type = 'trend'
)
head(summary(fc), 12)
plot(fc, series = 1)
plot(fc, series = 2)
plot(fc, series = 3)
}
Run the code above in your browser using DataLab