Timings - pre-allocation

पिछले अभ्यास में, वेक्टर को बढ़ाते समय लगभग 2 सेकंड लगे थे. जब हम वेक्टर को पहले से allocate कर देते हैं, तब कितना समय लगता है? नीचे 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
}