r R重叠#R

Posted 2021-05-23

is_overlapping <- function(start_1, end_1, start_2, end_2) {
    if (
        (dplyr::between(start_1, start_2, end_2)) |
        (dplyr::between(end_1, start_2, end_2)) |
        (dplyr::between(start_2, start_1, end_1)) |
        (dplyr::between(end_2, start_1, end_1))
      ) {
      return(TRUE)
    }
  FALSE
}