R/get_has_non_strict_clock_model.R

Defines functions get_has_non_strict_clock_model

Documented in get_has_non_strict_clock_model

#' Determines if there is at least one non-strict clock model
#' in the list of one or more clock models
#' @inheritParams default_params_doc
#' @return TRUE if there is at least one non-strict clock model
#' @author Richèl J.C. Bilderbeek
#' @export
get_has_non_strict_clock_model <- function(clock_models) {
  check_true(are_clock_models(clock_models))
  for (clock_model in clock_models) {
    if (!is_strict_clock_model(clock_model)) {
      return(TRUE)
    }
  }
  FALSE
}

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.