如何检查函数重复多次的时间

Question

假设我有

myFun = function(){

}

我知道

system.time(myFun) 

会告诉我用于运行该功能的时间。问题是我想知道重复调用函数1000次需要多少，我该怎么办？

Answer 1

重复myFun 1000次：

library(microbenchmark)
myFun <- function() {Sys.time()}
microbenchmark(myFun(), times = 1000)

Unit: microseconds
       expr   min     lq median     uq    max neval
    myFun() 9.893 11.035 11.416 12.176 60.119  1000