R 如何创建更准确的运行时估计

在我的R程序中，我有一个主循环，它需要相当长的时间才能完成。因此，我想创建一个警告对话框，提供比现在更准确的估计。当前在它调用的循环中

if (loopIteration == 1) {
    sampleTime1 <- sys.time();
}

if (loopIteration == 2) {
    sampleTime2 <- sys.time();
    timeEstimate <- loopLength*difftime(sampleTime2, sampleTime1);
    print(timeEstimate);
}

if（循环迭代==1）{
sampleTime1您似乎正在使用另一个未命名包中的函数。基本函数中的函数名为
system.time
，它报告的第三个元素是表达式执行所用的时间：

> system.time({for(i in 1:1000000) {NULL} })[3]
elapsed 
    0.2 

大概这两个条件都是
loopIteration==1
是一个输入错误？它来自R base软件包，我想DWin所说的是您正在使用的sys.time函数，而不是difftime函数。有一个sys.time函数。我猜您的代码不运行，但sys.time中的第一个s可能不需要大写。好吧如果我们谈论的是基函数，
base:：Sys.time
中的“S”当然需要大写。那么我们到底在谈论什么呢？我们能有一些实际运行的代码和一些结果来证明所声称的吗？