check_empty_beautier_folder()
# zero distributions
gamma_site_model <- create_gamma_site_model()
get_gamma_site_model_n_distrs(
gamma_site_model
)
gamma_site_model <- create_gamma_site_model(
gamma_cat_count = 2,
gamma_shape_prior_distr = create_exp_distr()
)
# one distribution
get_gamma_site_model_n_distrs(gamma_site_model)
check_empty_beautier_folder()
Run the code above in your browser using DataLab