时差总是在几分钟之内

Question

我需要保存算法的运行时间，然后，我希望获得平均值，但是指标存在问题。有时时差返回分钟，有时秒返回。我怎么总是可以得到分钟？

这是一个简短的示例，当我计算平均值时，出现一个“错误”。我该如何解决？

waitTimes <- c(50,60,70)
saveTimes <- list()
for(i in 1:length(waitTimes)){
  start <- Sys.time()

  Sys.sleep(waitTimes[i])

  end <- Sys.time()

  saveTimes[[i]] <- end - start
}
tim <- c()
for(i in 1:length(saveTimes)){
  tim <- c(tim,saveTimes[[i]])
}

Answer 1

使用& C:\Temp\uedit64.exe 而不是一次相减，您可以将单位指定为分钟：

difftime