# \donttest{
# 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(),
data = simdat$data_train,
chains = 2,
silent = 2)
# Extract fitted values (posterior expectations)
expectations <- fitted(mod)
str(expectations)
# }
Run the code above in your browser using DataLab