如何打印代码在R中每隔N行运行多长时间？

Question

到目前为止，我尝试过使用system.time（），但是我不知道如何将其集成到打印出运行每个第n行所花费的时间，其中n是我创建的数字。

Answer 1

tictoc包可能会提供您正在寻找的工具。

实施例

# install.packages("tictoc")
library(tictoc)

tic()
for(i in 1:1000) { 
  x <- rnorm(1e5)
}
toc()

tic()
for(i in 1:1000) { 
  x <- rexp(1e5)
}
toc()