powered by
is.natural.number(x, tol = .Machine$double.eps^0.5, ...)
is.numeric
is.double
is.integer
is.natural.number(1) # is TRUE (x <- seq(-1,5, by=0.5) ) is.natural.number( x ) # is.natural.number( "a" ) all(is.natural.number( x ))
Run the code above in your browser using DataLab