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.")
  }
}
ir-sfsu/intermittent documentation built on Jan. 2, 2022, 6:42 a.m.