x <- rvpois(lambda=1) # some integer-valued random variable
is.integer(x) # FALSE, because by default x is 'double'!
x <- as.integer(x) # coerce to integer
is.integer(x) # TRUE
Run the code above in your browser using DataLab