if (FALSE) {
sim <- sim_mvgam(family = Gamma())
mod1 <- mvgam(
y ~ s(season, bs = 'cc'),
trend_model = AR(),
data = sim$data_train,
family = Gamma(),
chains = 2,
silent = 2
)
beta_draws_df <- as.data.frame(mod1, variable = 'betas')
head(beta_draws_df)
str(beta_draws_df)
beta_draws_mat <- as.matrix(mod1, variable = 'betas')
head(beta_draws_mat)
str(beta_draws_mat)
shape_pars <- as.matrix(mod1, variable = 'shape', regex = TRUE)
head(shape_pars)
}
Run the code above in your browser using DataLab