proc.time() でエポック秒が取得できるので、実行後の時刻から実行前の時刻を引き算すればよい。 具体的には、以下のように書ける。 t<-proc.time() sum<-0;for(i in 1:1000) for(j in 1:1000) sum<-sum+j #何らかの計算 proc.time()-t ユーザ システム 経過…