ベクトル化コード：乗算

次のコードは、従来の C や Fortran のような書き方になっています。乗算のベクトル化を使わず、for ループを使っています。

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

このコードをベクトル化して、より「R らしい」書き方に直してください。x はすでに用意されています。