Nothing
#' Get the number of distributions a tree prior has
#' @inheritParams default_params_doc
#' @return the number of distributions a tree prior has
#' @author Richèl J.C. Bilderbeek
#' @examples
#' check_empty_beautier_folder()
#'
#' # 2: birth_rate_distr and death_rate_distr
#' get_tree_prior_n_distrs(create_bd_tree_prior())
#'
#' # 0:none
#' get_tree_prior_n_distrs(create_cbs_tree_prior())
#'
#' # 1: pop_size_distr
#' get_tree_prior_n_distrs(create_ccp_tree_prior())
#'
#' # 2:pop_size_distr and growth_rate_distr
#' get_tree_prior_n_distrs(create_cep_tree_prior())
#'
#' # 1: birth_rate_distr
#' get_tree_prior_n_distrs(create_yule_tree_prior())
#'
#' check_empty_beautier_folder()
#' @export
get_tree_prior_n_distrs <- function(
tree_prior
) {
if (!is_tree_prior(tree_prior)) {
stop("'tree_prior' must be a tree prior")
}
if (is_bd_tree_prior(tree_prior)) {
return(2)
} else if (is_cbs_tree_prior(tree_prior)) {
return(0)
} else if (is_ccp_tree_prior(tree_prior)) {
return(1)
} else if (is_cep_tree_prior(tree_prior)) {
return(2)
} else {
check_true(is_yule_tree_prior(tree_prior))
return(1)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.