system-time-CPU-Time-Used.R

# NOT RUN {
require(stats)
# }
# NOT RUN {
system.time(for(i in 1:100) mad(runif(1000)))

##    user  system elapsed 
##    0.01    0.00    0.01

# }
# 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)))
}

exT()                 #- about 4 secs on a 2.5GHz Xeon

##    user  system elapsed 
##    1.70    0.01    1.71

system.time(exT())    #~ +/- same

##    user  system elapsed 
##    1.68    0.00    1.70

# }