суммирование векторов прыгать один элемент; Альтернатива для цикла в г

Question

Я уверен, что это очень просто, но я не могу получить мою голову вокруг как vectorise этого цикл

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