Đo thời gian - cấp phát trước

Trong bài trước, việc tăng kích thước vector mất khoảng 2 giây. Vậy nếu cấp phát trước vector thì mất bao lâu? Hàm pre_allocate() được định nghĩa bên dưới.

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