使用 Sys.time 在 R 中获取不同的执行时间

Question

我正在通过在代码的开头和结尾编写 Sys.time() 并计算差异来测量用 R 编写的程序的执行时间。我得到的结果是在不同的时间实例发生变化。

例如： adjacent1。矩阵

0 1 1 1 1 1.
1 0 1 1 1 1.
1 1 0 1 1 1.
1 1 1 0 1 1.
1 1 1 1 0 1.
1 1 1 1 1 0。

而R代码是

initial_time=Sys.time().
相邻1%%adjacent1%%adjacent1.
final_time=Sys.time().
时间=最终时间-初始时间。
打印（时间）

当我多次运行代码时，每次的输出都不同。

时差为 0.002844095 秒。
时差0.003111839秒。
时差0.002691031秒。
时间差 0.003143072 秒。

这是一个简单的例子。对于更复杂的 R 代码，执行时间有很大的不同。

为什么会这样？

Answer 1

由于您没有提供示例，因此我创建了一些虚拟数据以供使用：

sleep_for_5_secs <- function() { Sys.sleep(5) }

start_time <- Sys.time()
sleep_for_5_secs()
end_time <- Sys.time()

start_time
[1] "2018-07-19 14:21:20 MYT"
end_time
[1] "2018-07-19 14:21:25 MYT"

上面的代码做的是测量系统时间，等待5秒，再次测量系统时间。如您所见，Sys.time 函数有效。