加算ベクトルは1つの要素を飛ばします。 R

Question

のループのための代替私は、これは本当に簡単であると確信しているが、私は多分、ループ

x <- 1:3 
y <- 11:13 

z <- x[1] 
for(i in 2:length(x)){ 
    tem <- x[i] + y[i-1] 
    z <- c(z, tem) 
} 

Answer 1

のためにこれをこれをvectoriseする方法のまわりで私の頭を取得することはできませんか？

> c(x[1],tail(x,-1) + head(y,-1)) 
[1] 1 13 15