if (FALSE) {
# Simulate some data and fit a model
simdat <- sim_mvgam(
n_series = 1,
trend_model = AR()
)
mod <- mvgam(
y ~ s(season, bs = 'cc'),
trend_model = AR(),
noncentred = TRUE,
data = simdat$data_train,
chains = 2,
silent = 2
)
# Compute posterior expectations
expectations <- posterior_epred(mod)
str(expectations)
}
Run the code above in your browser using DataLab