Timing R code

Example usage 1

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

Example usage 2

set.seed(123)
n <- 10000L
misc::timeit(rweibull(n, 2, 3), times = 100)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   0e+00   0e+00   0e+00   4e-04   1e-03   1e-03