R/is_mrca_prior_with_distr.R

Defines functions is_mrca_prior_with_distr

Documented in is_mrca_prior_with_distr

#' 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)
}

Try the beautier package in your browser

Any scripts or data that you put into this service are public.

beautier documentation built on Nov. 2, 2023, 5:08 p.m.