内置函数system.time()将执行此操作。

使用like: system。Time (result <- myfunction(with, arguments))

度量执行时间的一个稍微好一点的方法是使用rbenchmark包。这个包(很容易)允许您指定复制测试的次数，以及相对基准测试应该是多少次。

另见stats.stackexchange上的相关问题

如果你喜欢，你可以使用matlab风格的tic-toc函数。看另一个SO问题

秒表功能在R

正如Andrie所说，system.time()工作正常。对于短函数，我更喜欢在其中放入replication ():

system.time( replicate(10000, myfunction(with,arguments) ) )

另一种可能的方法是使用Sys.time():

start.time <- Sys.time()
...Relevent codes...
end.time <- Sys.time()
time.taken <- end.time - start.time
time.taken

与上面的答案相比，这不是最优雅的方法，但绝对是一种方法。

还有proc.time()

你可以用和Sys一样的方法使用。Time但是它给你的结果和system。Time类似。

ptm <- proc.time()
#your function here
proc.time() - ptm

主要区别使用

system.time({ #your function here })

proc.time()方法仍然执行你的函数，而不是仅仅测量时间… 顺便说一下，我喜欢使用系统。时间{}在里面，所以你可以把一组东西…

包“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

虽然其他解决方案对于单个函数也很有用，但我推荐使用下面的代码段，因为它更通用、更有效:

Rprof(tf <- "log.log", memory.profiling = TRUE)
# the code you want to profile must be in between
Rprof (NULL) ; print(summaryRprof(tf))

microbenchmark是一个轻量级(约50kB)包，或多或少是R中对多个表达式和函数进行基准测试的标准方法:

microbenchmark(myfunction(with,arguments))

例如:

> microbenchmark::microbenchmark(log10(5), log(5)/log(10), times = 10000)
Unit: nanoseconds
           expr min lq    mean median uq   max neval cld
       log10(5)   0  0 25.5738      0  1 10265 10000   a
 log(5)/log(10)   0  0 28.1838      0  1 10265 10000

在这里，两个表达式都被计算了10000次，平均执行时间约为25-30纳秒。

另一种简单但非常强大的方法是使用包profvis。它不仅测量代码的执行时间，还为您提供了执行每个函数的钻取。它也可以用于Shiny。

library(profvis)

profvis({
  #your code here
})

点击这里查看一些例子。

您可以使用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，它有一个合适的格式。

基于bench package网站:

bench::mark() from package bench is used to benchmark one or a series of expressions, we feel it has a number of advantages over alternatives. Always uses the highest precision APIs available for each operating system (often nanoseconds). Tracks memory allocations for each expression. Tracks the number and type of R garbage collections per expression iteration. Verifies equality of expression results by default, to avoid accidentally benchmarking inequivalent code. Has bench::press(), which allows you to easily perform and combine benchmarks across a large grid of values. Uses adaptive stopping by default, running each expression for a set amount of time rather than for a specific number of iterations. Expressions are run in batches and summary statistics are calculated after filtering out iterations with garbage collections. This allows you to isolate the performance and effects of garbage collection on running time (for more details see Neal 2014). The times and memory usage are returned as custom objects which have human readable formatting for display (e.g. 104ns) and comparisons (e.g. x$mem_alloc > "10MB"). There is also full support for plotting with ggplot2 including custom scales and formatting.

Use:

bench::mark(log10(5))
#> # A tibble: 1 × 6
#>   expression      min   median `itr/sec` mem_alloc `gc/sec`
#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>
#> 1 log10(5)      212ns    274ns  2334086.        0B        0

由reprex包在2021-08-18创建(v2.0.1)

编译以上所有的答案，我想到使用这些简化的tic toc函数

tic <- function(){ start.time <<- Sys.time() }
toc <- function(){ round(Sys.time() - start.time) }

用作:

tic()
Sys.sleep(3)
toc()

哪些印刷品:

时间差3秒

有几个答案提到取两个Sys.time()的差值。

start <- Sys.time()
## ... code here ... ##
end <- Sys.time()
end - start

这将以人类可读的格式打印结果，例如“2秒的时间差”。但是，由于单位可以变化(从“秒”到“分钟”到“天”)，因此，如果多个运行时的单位不同，那么使用此方法在相同基础上比较它们就不太有用。

对于非交互目的，最好指定时间单位。

具体来说，Sys.time()返回一个POSIXct对象。取两个posixct的差值，给出一个difftime类的对象，该对象具有“units”属性。特别是' - '操作被定义为在与POSIXct一起使用时使用difftime()。也就是说,

time2 - time1

等于

difftime(time2, time1)

要指定units属性，添加一个units=参数，例如。

difftime(time2, time1, units="secs")

总而言之，可以使用Sys.time()用指定的单位(秒、分等)来测量运行时。

start <- Sys.time()
## ... code here ... ##
end <- Sys.time()
difftime(end, start, units="secs")

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