R/zero_range.R

.zero_range <- function(x, tol = .Machine$double.eps ^ 0.5) {
  if (length(x) == 1) return(TRUE)
  all(abs(max(x) - min(x)) < tol)
}
UW-GAC/harmonHelper documentation built on May 9, 2019, 9:37 p.m.