is.integer(3) # FALSE, it's internally a double
is.whole(3) # TRUE
## integer valued complex numbers (two FALSE) :
is.whole(c(7, 1 + 1i, 1.2, 3.4i, 7i))
x <- c(as(2,"mpfr") ^ 100, 3, 3.2, 1000000, 2^40)
is.whole(x) # one FALSE, only
Run the code above in your browser using DataLab