x <- rnorm(10000)
system.time( for (i in 1:1000) med(x) )
system.time( for (i in 1:1000) median(x) )
x <- rnorm(10001)
system.time( for (i in 1:1000) med(x) )
system.time( for (i in 1:1000) median(x) )
Run the code above in your browser using DataLab