Nothing
#' Internal function
#'
#' Converts a clock model to the \code{operators} section of the
#' XML as text
#' @inheritParams default_params_doc
#' @return a character vector of XML strings
#' @author Richèl J.C. Bilderbeek
#' @export
clock_model_to_xml_operators <- function(
inference_model
) {
if (is_strict_clock_model(inference_model$clock_model)) {
return(strict_clock_model_to_xml_operators(inference_model))
} else {
# Will fail on unimplemented clock models
check_true(
is_rln_clock_model(inference_model$clock_model)
)
return(rln_clock_model_to_xml_operators(inference_model))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.