R/eql.R

eql <- function(x, y) {
  if(length(x) > length(y)) {
    y <- rep(y, , length(x))
  } else {
    x <- rep(x, , length(y))
  }
  rel2 <- ifelse(is.nan(x), is.nan(y), ifelse(is.nan(y), FALSE, x == y))
  return(rel2)  
}

Try the cwhmisc package in your browser

Any scripts or data that you put into this service are public.

cwhmisc documentation built on May 1, 2019, 7:55 p.m.