R/comparison.R

In testdat: Data Unit Testing for R

Defines functions `%!=%` `%==%`

`%==%` <- function(x, y) {
  (!(is.na(x) & !is.na(y)) &
     !(is.na(y) & !is.na(x)) &
     (is.na(x) & is.na(y) |
        x == y))
}

`%!=%` <- function(x, y) {
  !(x %==% y)
}

Try the testdat package in your browser