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. 
## 0.00000 0.00100 0.00100 0.00112 0.00100 0.00200