microbenchmark.R

library(microbenchmark)
set.seed(123)
x_list <- list(rnorm(1000), rnorm(10000), rnorm(100000))
set.seed(456)
x_matrix <- matrix(rnorm(1000000), nrow = 1000, ncol = 1000)
results <- microbenchmark(
  mean(x_list[[1]]),
  mean(x_list[[2]]),
  mean(x_list[[3]]),
  mean(x_matrix),
  times = 10
)

# Print the results
print(results)

## Unit: microseconds
##               expr    min     lq    mean  median     uq    max neval
##  mean(x_list[[1]])   13.6   21.3   25.52   25.70   30.0   38.4    10
##  mean(x_list[[2]])   41.6   42.4   72.32   53.75   56.5  224.0    10
##  mean(x_list[[3]])  314.2  320.9  352.06  350.95  365.2  432.0    10
##     mean(x_matrix) 3137.0 3219.5 3449.40 3445.60 3699.2 3798.4    10