system.time(expr)
expr
| Valid R expression to be ``timed'' |
system.time calls the builtin proc.time,
evaluates expr, and the calls proc.time once more,
returning the difference to between the proc.time calls.
The values returned by the proc.time are (currently) those
returned by the C library function times(3v).
proc.time, time which is for time series.
system.time(for(i in 1:50) mad(runif(500)))
exT <- function(n = 100) {
# 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):
exT() #- `1.4' on -O-optimized Ultra1
system.time(exT()) #~ +/- same