R/is.wholenumber.R

is.wholenumber <- function(x, tol = .Machine$double.eps^0.5)
{
      return(abs(x - round(x)) < tol)
}      
eddelbuettel/mvabund-tests documentation built on May 15, 2019, 10:30 p.m.