#' Internal function
#'
#' @inheritParams default_params_doc
#' @return lines of XML text
#' @author Richèl J.C. Bilderbeek
#' @export
rln_clock_model_to_xml_mean_rate_prior <- function( # nolint indeed a long internal function name
rln_clock_model,
beauti_options
) { # nolint indeed long function name
check_true(is_rln_clock_model(rln_clock_model))
id <- rln_clock_model$id
check_true(is_id(id))
text <- NULL
text <- c(
text,
paste0(
"<prior id=\"MeanRatePrior.c:", id, "\" ",
"name=\"distribution\" x=\"@ucldMean.c:", id, "\">"
)
)
text <- c(text,
indent(
distr_to_xml(
distr = rln_clock_model$mean_rate_prior_distr,
beauti_options = beauti_options
)
)
)
text <- c(text, paste0("</prior>"))
text
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.