求和向量跳跃一个元素; 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

也许这个？

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