효율적인 R 코드 작성
Colin Gillespie
Jumping Rivers & Newcastle University
목표
rnorm(4)
-0.7247 0.2502 0.3510 0.6919
mean(c(36, 48))
42
library(microbenchmark)
n <- 1e6
x <- vector("numeric", n)
microbenchmark(
x <- rnorm(n),
{
for(i in seq_along(x))
x[i] <- rnorm(1)
},
times = 10
)
# Unit: milliseconds
# expr lq mean uq cld
# rnorm(n) 60 70 80 a
# Looping 2600 2700 2800 b
## Output trimmed for presentation
비교
x <- vector("numeric", n)
for(i in seq_along(x))
x[i] <- rnorm(1)
vs
x <- rnorm(n)
x <- vector("numeric", n)
for(i in seq_along(x))
x[i] <- rnorm(1)
x <- vector("numeric", n)
rnorm() 백만 번 호출rnorm() 단 한 번 호출R 클럽의 두 번째 규칙: 가능한 한 벡터화 솔루션을 사용하십시오.
효율적인 R 코드 작성