[R] 동작시간 측정하기

*  측정

ptm <- proc.time()

# 로직

x <- 1:100000

for (i in seq_along(x))  x[i] <- x[i]+1

proc.time() - ptm

결과 화면

 사용자  시스템 elapsed 

  0.116   0.003   0.118 

* 블럭 측정

system.time({

  # 로직

  x <- 1:100000

  for (i in seq_along(x))  x[i] <- x[i]+1

})

결과 화면

 사용자  시스템 elapsed 

  0.113   0.007   0.120 

이것 외에 Rprof()도 있다.

https://tgmstat.wordpress.com/2013/09/25/profiling-r-code/