Get the number of distributions in a gamma site model

get_gamma_site_model_n_distrs(gamma_site_model)

Arguments

gamma_site_model

a site model's gamma site model, as returned by create_gamma_site_model

Value

the number of distributions a gamma site model has

See also

Use create_gamma_site_model to create a gamma site model

Author

Richèl J.C. Bilderbeek

Examples

  gamma_site_model <- create_gamma_site_model()
  n_distrs <- get_gamma_site_model_n_distrs(
    gamma_site_model
   )
  testit::assert(n_distrs == 0)

  gamma_site_model <- create_gamma_site_model(
    gamma_cat_count = 2,
    gamma_shape_prior_distr = create_exp_distr()
  )
  n_distrs <- get_gamma_site_model_n_distrs(gamma_site_model)
  testit::assert(n_distrs == 1)