我编写了一个调用子例程R和f的{{1}}函数f1。说
f2我想对f1 <- function() Sys.sleep(0.1)
f2 <- function() Sys.sleep(0.2)
f <- function(){
f1()
f2()
}
及其子例程的性能进行基准测试，以便找出可以针对运行时改进的子例程。遗憾的是，f仅提供microbenchmark的运行时：
f我希望得到microbenchmark(f(), times = 10) # gives
Unit: milliseconds
expr min lq mean median uq max neval
f() 302.0776 309.7246 312.5698 312.9659 314.0021 327.6248 10
中调用的子程序的统计信息。像
f