# get starting time:
start <- Sys.time()
# do some random analysis:
x <- sort(rnorm(1e7))
# see how long it took:
timer(start)
# time an expression directly:
timer(x <- sort(rnorm(1e7)))
timer(x <- sort(rnorm(1e7)), digits = 2)
Run the code above in your browser using DataLab