check if input is natural number
is.naturalnumber(x, tol = .Machine$double.eps^0.5)
x
numeric number to be checked
tol
maximum accepted tolerance when checking if natural