R/site_models_to_xml_prior_distr.R

Defines functions site_models_to_xml_prior_distr

Documented in site_models_to_xml_prior_distr

#' Represent the site models as XML
#' @inheritParams default_params_doc
#' @return lines of XML text
#' @examples
#' check_empty_beautier_folder()
#'
#'  # <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>
#'
#' check_empty_beautier_folder()
#' @author Richèl J.C. Bilderbeek
#' @export
site_models_to_xml_prior_distr <- function(
  site_models,
  beauti_options
) {
  text <- NULL
  for (site_model in site_models) {
    text <- c(
      text,
      site_model_to_xml_prior_distr(
        site_model,
        beauti_options = beauti_options
      )
    )
  }
  text
}

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.