require(stats)
system.time(for(i in 1:100) mad(runif(1000)))
## Not run: ------------------------------------
# exT <- function(n = 10000) {
# # Purpose: Test if system.time works ok; n: loop size
# system.time(for(i in 1:n) x <- mean(rt(1000, df = 4)))
# }
# #-- Try to interrupt one of the following (using Ctrl-C / Escape):
# exT() #- about 4 secs on a 2.5GHz Xeon
# system.time(exT()) #~ +/- same
## ---------------------------------------------
Run the code above in your browser using DataLab