R/is.wholenumber.R

is.wholenumber <-
function(x, tol = .Machine$double.eps^0.5)  {
  abs(x - round(x)) < tol
}
jdanielnd/tsgen documentation built on May 18, 2019, 10:26 p.m.