Pengukuran waktu - menumbuhkan vektor

Menumbuhkan vektor adalah salah satu dosa besar di R; Anda harus selalu menghindarinya.

Fungsi growing() yang didefinisikan di bawah ini menghasilkan n angka acak bertipe standar normal, tetapi menambah ukuran vektor setiap kali sebuah elemen ditambahkan!

Catatan: Angka standar normal adalah angka yang diambil dari distribusi normal dengan mean 0 dan simpangan baku 1.

n <- 30000
# Slow code
growing <- function(n) {
    x <- NULL
    for(i in 1:n)
        x <- c(x, rnorm(1))
    x
}