#' See if the inference model has one MRCA prior with a distribution
#' @inheritParams default_params_doc
#' @return TRUE if the inference model has one MRCA prior with a distribution,
#' FALSE otherwise
#' @author Richèl J.C. Bilderbeek
#' @export
has_mrca_prior_with_distr <- function(inference_model) {
check_inference_model(inference_model)
if (!has_mrca_prior(inference_model)) return(FALSE)
is_mrca_prior_with_distr(inference_model$mrca_prior)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.