-2

私の R プログラムには、完了までにかなりの時間がかかるメイン ループがあります。このため、現在よりも正確な見積もりを提供する警告ダイアログを作成したいと考えています。現在、それが呼び出すループにあります

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

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

残念ながら、この見積もりは約 75% 正確ではありません。これをより正確にするにはどうすればよいですか？

4

1 に答える 1

1

名前のない別のパッケージの関数を使用しているようです。基本関数の関数名は次のとおりでsystem.timeあり、それが報告する 3 番目の要素は、式の実行にかかった時間です。

> system.time({for(i in 1:1000000) {NULL} })[3]
elapsed 
    0.2
于 2012-12-21T05:23:50.363 に答える