microbenchmarking

start.time <- Sys.time()
m <- ceiling(runif(10000, -1, 10^12))
end.time <- Sys.time()
time.taken <- end.time - start.time
time.taken

## Time difference of 0.1199257 secs

hist(m)

start.time <- Sys.time()
m <- as.integer(runif(10000, min = 0, max = (1 + 10^12)))

## Warning: NAs introduced by coercion to integer range

end.time <- Sys.time()
time.taken <- end.time - start.time
time.taken

## Time difference of 0.003390312 secs

sum(is.na(m))

## [1] 9987

hist(m, breaks = 20)

## Warning in breaks[-1L] + breaks[-nB]: NAs produced by integer overflow