cwhmisc (version 6.0)

num.ident: Check numerical values for identity

Description

Check two variables on numerical identity or whether both are either NaN or NA.

Usage

num.ident(x,y)

Arguments

x, y

Variables to check for identity, may be arrays.

Value

TRUE, FALSE

Examples

  xxxx <- c(100,-1e-13,Inf,-Inf, NaN, pi, NA)
  names(xxxx) <- formatC(xxxx, dig=3)
  (aaaa <- outer(xxxx,xxxx,function(x,y) num.ident(x,y)))
  all((aaaa & !is.na(aaaa)) == (row(aaaa) == col(aaaa)))
  # aaaa has TRUE only on the diagonal, i.e. identity works correctly