Nothing
#' See if x is one MRCA prior with a distribution
#' @param x the object to be tested
#' @return TRUE if x is one MRCA prior with a distribution,
#' FALSE otherwise
#' @author Richèl J.C. Bilderbeek
#' @export
is_mrca_prior_with_distr <- function(
x
) {
if (is_one_na(x)) return(FALSE)
if (!is_mrca_prior(x)) return(FALSE)
is_distr(x$mrca_distr)
}
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.