Mã vector hóa: phép nhân

Đoạn mã sau đây được viết theo phong cách truyền thống của C hoặc Fortran. Thay vì dùng phép nhân đã được vector hóa, nó dùng vòng lặp for.

x <- rnorm(10)
x2 <- numeric(length(x))
for(i in 1:10)
    x2[i] <- x[i] * x[i]

Nhiệm vụ của bạn là làm cho mã này "đậm chất R" hơn bằng cách vector hóa nó. x đã được cung cấp để bạn sử dụng.