การจับเวลา - การขยาย Vector

การขยาย vector ทีละตัวถือเป็นหนึ่งในข้อผิดพลาดร้ายแรงใน R ที่ควรหลีกเลี่ยงเสมอ

ฟังก์ชัน growing() ที่กำหนดไว้ด้านล่างนี้สร้างตัวเลขสุ่มแบบ standard normal จำนวน n ตัว แต่ขยายขนาดของ vector ทุกครั้งที่เพิ่มสมาชิกใหม่เข้าไป!

หมายเหตุ: ตัวเลข standard normal คือตัวเลขที่สุ่มมาจากการแจกแจงปกติที่มีค่าเฉลี่ย 0 และส่วนเบี่ยงเบนมาตรฐาน 1

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