From http://stat.ethz.ch/R-manual/R-devel/library/base/html/proc.time.html
## Not run: ## a way to time an R expression: system.time is preferred ptm <- proc.time() for (i in 1:50) mad(stats::runif(500)) proc.time() - ptm ## End(Not run)