실행 시간 - 사전 할당

이전 연습 문제에서 벡터를 점차 키우는 데 약 2초가 걸렸어요. 벡터를 미리 할당하면 얼마나 걸릴까요? 아래에 pre_allocate() 함수가 정의되어 있어요.

n <- 30000
# Fast code
pre_allocate <- function(n) {
    x <- numeric(n) # Pre-allocate
    for(i in 1:n) 
        x[i] <- rnorm(1)
    x
}

이 연습은 강의의 일부입니다

효율적인 R 코드 작성

pre_allocate() 함수가 작업 공간에 준비되어 있어요.

system.time()을 사용해 pre_allocate(n)을 실행하는 데 걸리는 시간을 확인하세요. <- 트릭을 사용해 결과를 객체 res_allocate에 저장하세요.

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

# Use <- with system.time() to store the result as res_allocate
n <- 30000
system.time(___ <- ___)