【R】tictoc

1. はじめに

tictocは、Rのコードの実行時間を測定してくれるパッケージです。

2. インストール

CRANからインストールできます。

install.packages("tictoc")

3. 使ってみる

例えば、大きなデータフレームを作るときの時間を測ってみます。測りたいコードをtic()とtoc()で囲むだけ。

library(tictoc)

nr_of_rows <- 1e7

tic()
df <- data.frame(
  Logical = sample(c(TRUE, FALSE, NA), prob = c(0.85, 0.1, 0.05), nr_of_rows, replace = TRUE),
  Integer = sample(1L:100L, nr_of_rows, replace = TRUE),
  Real = sample(sample(1:10000, 20) / 100, nr_of_rows, replace = TRUE),
  Factor = as.factor(sample(labels(UScitiesD), nr_of_rows, replace = TRUE))
)
toc()

> tic()
> df <- data.frame(
+   Logical = sample(c(TRUE, FALSE, NA), prob = c(0.85, 0.1, 0.05), nr_of_rows, replace = TRUE),
+   Integer = sample(1L:100L, nr_of_rows, replace = TRUE),
+   Real = sample(sample(1:10000, 20) / 100, nr_of_rows, replace = TRUE),
+   Factor = as.factor(sample(labels(UScitiesD), nr_of_rows, replace = TRUE))
+ )
> toc()
3.22 sec elapsed

と、3.22秒と計測されました。簡単ですね！

4. 最後に

コードの実行時間の測定は、proc.time()関数を使ってもできます。この関数ではエポック秒が取得できるので、コードの前後でエポック秒を取得して差をとればコードの実行時間が分かります。

proc.time()にしてもtictocにしても、どちらでもいいですね。