在R中是否有衡量函数执行时间的标准化方法?
显然我可以用系统。时间，然后取它们的差异，但我想知道是否有一些标准化的方法或功能(不想发明轮子)。
我似乎记得我曾经用过如下的东西:
somesysfunction("myfunction(with,arguments)")
> Start time : 2001-01-01 00:00:00 # output of somesysfunction
> "Result" "of" "myfunction" # output of myfunction
> End time : 2001-01-01 00:00:10 # output of somesysfunction
> Total Execution time : 10 seconds # output of somesysfunction
当前回答
您可以使用Sys.time()。但是，当您在表格或csv文件中记录时差时，不能简单地使用end - start。相反，你应该定义这个单位:
f_name <- function (args*){
start <- Sys.time()
""" You codes here """
end <- Sys.time()
total_time <- as.numeric (end - start, units = "mins") # or secs ...
}
然后你可以使用total_time，它有一个合适的格式。
其他回答
如果你喜欢，你可以使用matlab风格的tic-toc函数。看另一个SO问题
秒表功能在R
包“tictoc”为您提供了一种非常简单的测量执行时间的方法。文档在:https://cran.fhcrc.org/web/packages/tictoc/tictoc.pdf。
install.packages("tictoc")
require(tictoc)
tic()
rnorm(1000,0,1)
toc()
要保存经过的时间到一个变量，你可以这样做:
install.packages("tictoc")
require(tictoc)
tic()
rnorm(1000,0,1)
exectime <- toc()
exectime <- exectime$toc - exectime$tic
度量执行时间的一个稍微好一点的方法是使用rbenchmark包。这个包(很容易)允许您指定复制测试的次数，以及相对基准测试应该是多少次。
另见stats.stackexchange上的相关问题
还有proc.time()
你可以用和Sys一样的方法使用。Time但是它给你的结果和system。Time类似。
ptm <- proc.time()
#your function here
proc.time() - ptm
主要区别使用
system.time({ #your function here })
proc.time()方法仍然执行你的函数，而不是仅仅测量时间… 顺便说一下，我喜欢使用系统。时间{}在里面，所以你可以把一组东西…
library(rbenchmark)
sleep_func <- function() { Sys.sleep(0.5) }
benchmark(sleep_func())
out:
test replications elapsed relative user.self sys.self user.child sys.child
1 sleep_func() 100 50.08 1 0.02 0 NA NA
