R/checks.R

Defines functions origins_check

## Checks ##

#' @export
origins_check <- function(x, y) {
  if (!identical(term_origin(x), term_origin(y))) {
    stop(call. = FALSE, "terms must share origins.")
  }
}
daranzolin/intermittent documentation built on Dec. 26, 2021, 3:17 a.m.