Nothing
#' Determine if the \code{inference_model} uses a strict clock model.
#'
#' Determine if the \code{inference_model} uses a strict clock model
#' @inheritParams default_params_doc
#' @return TRUE if the \code{inference_model} uses a strict clock model,
#' FALSE otherwise
#' @author Richèl J.C. Bilderbeek
#' @examples
#' check_empty_beautier_folder()
#'
#' # Yes, has a strict clock model
#' has_strict_clock_model(
#' create_inference_model(clock_model = create_strict_clock_model())
#' )
#'
#' # No strict clock model
#' has_strict_clock_model(
#' create_inference_model(clock_model = create_rln_clock_model())
#' )
#'
#' check_empty_beautier_folder()
#' @export
has_strict_clock_model <- function(inference_model) {
check_inference_model(inference_model)
is_strict_clock_model(inference_model$clock_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.