Get the number of distributions a site model has

get_gamma_site_model_n_params(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 parameters a site model has

Author

Richèl J.C. Bilderbeek

Examples

  testit::assert(
    get_gamma_site_model_n_params(
      create_gamma_site_model(gamma_cat_count = 0)
    ) == 0
  )
  testit::assert(
    get_gamma_site_model_n_params(
      create_gamma_site_model(gamma_cat_count = 1)
    ) == 0
  )
  testit::assert(
    get_gamma_site_model_n_params(
      create_gamma_site_model(
        gamma_cat_count = 2,
        gamma_shape_prior_distr = create_exp_distr()
      )
    ) == 1
  )