R/mrca_priors_to_xml_distr.R

In richelbilderbeek/beastscriptr: 'BEAUti' from R

#' Creates the the \code{distribution}'s prior section (which is part of
#' a posterior distribution section) of a BEAST2 XML parameter file.
#'
#' These lines start with '\code{<distribution id="prior"}'
#'
#' \code{
#'    <distribution id="posterior" spec="util.CompoundDistribution">
#'        <distribution id="prior" spec="util.CompoundDistribution">
#'          HERE, where the ID of the distribution is 'prior'
#'        </distribution>
#'        <distribution id="likelihood" ...>
#'        </distribution>
#'   </distribution>
#' }
#' @inheritParams default_params_doc
#' @return lines of XML text
#' @author Richèl J.C. Bilderbeek
#' @export
mrca_priors_to_xml_prior_distr <- function(
  inference_model
) {
  # Don't be smart yet
  mrca_priors <- list(inference_model$mrca_prior)
  check_true(are_mrca_priors(mrca_priors))

  if (is_one_na(mrca_priors)) return(NULL)
  mrca_prior_to_xml_prior_distr(
    inference_model = inference_model
  )
}