R/create_beast2_input_operators.R

Defines functions create_beast2_input_operators

Documented in create_beast2_input_operators

#' Creates the operators section of a BEAST2 XML parameter file
#' @inheritParams default_params_doc
#' @return lines of XML text
#' @author Richèl J.C. Bilderbeek
#' @export
create_beast2_input_operators <- function(
  inference_model
) {
  # Do not be smart yet
  site_models <- list(inference_model$site_model)

  text <- tree_prior_to_xml_operators(
    inference_model = inference_model
  )

  text <- c(text, site_models_to_xml_operators(site_models))
  text <- c(
    text,
    clock_model_to_xml_operators(
      inference_model
    )
  )
  text <- interspace(text)
  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.