Timing R code

Example usage 1

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

## elapsed 
##   0.003

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.00100 0.00300 0.00300 0.00536 0.00500 0.08000