Test if a numeric vector consists of whole numbers

Function borrowed from the example section for integer.

is.wholenumber(x, tol = .Machine$double.eps^0.5)

Arguments

x	a numeric vector
tol	How much is x allowed to deviate from round(x) to be a whole number.

Value

Logical vector with same length as x.

Examples

is.wholenumber(1) # is TRUE
#> [1] TRUE
(x <- seq(1, 5, by = 0.5) )
#> [1] 1.0 1.5 2.0 2.5 3.0 3.5 4.0 4.5 5.0
is.wholenumber( x ) #-->  TRUE FALSE TRUE ...
#> [1] FALSE