R で計算の実行時間を調べる
proc.time() でエポック秒が取得できるので、実行後の時刻から実行前の時刻を引き算すればよい。
具体的には、以下のように書ける。
t<-proc.time() sum<-0;for(i in 1:1000) for(j in 1:1000) sum<-sum+j #何らかの計算 proc.time()-t ユーザ システム 経過 0.79 0.03 0.83
関数の場合は
system.time 関数で挟めば良いですね。
expr<-function(n){ sum<-0;for(i in 1:n) for(j in 1:n) sum<-sum+j } system.time(expr(1000))
もしくは、このようにも書けます。見た目が良くないですが、関数を呼び出さないため、場合によってはこちらのほうが高速かも。
system.time({sum<-0;for(i in 1:1000) for(j in 1:1000) sum<-sum+j})