R/has_strict_clock_model.R

Defines functions has_strict_clock_model

Documented in has_strict_clock_model

#' 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)
}

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.