求和向量跳一个元素;替代为r中

Question

环路我敢肯定，这是很简单，但我不能让我围绕着如何vectorise for循环

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

也许这头？

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