Timing R code

Example usage 1

set.seed(123)
n <- 10000L
misc::timeit(rweibull(n, 2, 3))

## elapsed 
##   0.002

Example usage 2

set.seed(123)
n <- 10000L
misc::timeit(rweibull(n, 2, 3), times = 100)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  0.0010  0.0020  0.0020  0.0032  0.0030  0.0350