if (FALSE) {
simdat <- sim_mvgam()
mod <- mvgam(
y ~ s(season, bs = 'cc', k = 6),
trend_model = AR(),
use_lv = TRUE,
n_lv = 2,
data = simdat$data_train,
chains = 2,
silent = 2
)
plot_mvgam_factors(mod)
}
Run the code above in your browser using DataLab