依赖于两个向量的递归映射

Question

基本上;

 a<-c(1,2,1,2)
 b<-c(1,2,3,4)

如果a [n] even或b [n] + 2b [n-1]，我寻找一个返回c [n] = b [n] + b [n-1]的向量c的函数。

有什么比蛮力for循环容易吗？某种先进的＆＃34;减少＆＃34;或同等的。

Answer 1

x <- c(0, b[-length(b)]) # shifted b, 0 for first element
c <- ifelse((a %% 2) == 0, b + x, b + 2*x)

注意，a的长度应等于b的长度。