R 变元的递推关系

我对递归关系有一些问题。

---

我有一些数据，

test\u vec它是
rapply（）
你在找什么？@rmagno，可能是的，但在这种情况下应该如何应用它？你的例子很难理解。。。你能提供一个更抽象的数学描述来描述你想要实现的目标吗？@rmagno，基本上，我想写一个函数，除了已经执行的移位外，还可以将另一个函数的参数移位一些参数。让F（a）F（a）F（a）F（a）F（a）F（x+3-3-a）+3f（x+4-a）3f（x+4-a），然后：步骤1：步骤1：S=2f（1）F（1）+3f（x+3-1）+3 F（x+3-3+3+3f（x+3+3+3+3+3-a）让让F（x）让F（x（x+3）让F（x）让F（x+3+3+3+3+3+3+3+3+3+3+3+3+3+3+3+3+3）让）让（2）让F（2）让（2）让F（2）让F（2）让（2）让（2）让F（2）让（2）让F（2）让（2）F（2）让（2）让（2）让（2）让（2）让（2））+3（2f（x+3-2-2）+3f（x+4-2-2）））如此类推，我需要将一个和中所有函数的参数移位1或2，下一步再移位1或2…这是
rapply（）
你要找的吗？@rmagno，可能是的，但在这种情况下应该如何应用？你的例子很难理解。。。你能提供一个更抽象的数学描述来描述你想要实现的目标吗？@rmagno，基本上，我想写一个函数，除了已经执行的移位外，还可以将另一个函数的参数移位一些参数。让F（a）F（a）F（a）F（a）F（a）F（x+3-3-a）+3f（x+4-a）3f（x+4-a），然后：步骤1：步骤1：S=2f（1）F（1）+3f（x+3-1）+3 F（x+3-3+3+3f（x+3+3+3+3+3-a）让让F（x）让F（x（x+3）让F（x）让F（x+3+3+3+3+3+3+3+3+3+3+3+3+3+3+3+3+3）让）让（2）让F（2）让（2）让F（2）让F（2）让（2）让（2）让F（2）让（2）让F（2）让（2）F（2）让（2）让（2）让（2）让（2）让（2））+3（2f（x+3-2-2）+3f（x+4-2-2）））所以我需要将一个和中所有函数的参数移位1或2，下一步再移位1或2。。。
test_vec <- 1:5

F <- function(test_vec){
2 * (test_vec + 3) + 3 * (test_vec + 4)
}`
`shift_F <- function(F, val){
function(test_vec){
test_vec - val
  }
}
test_rec <- function(l){
if (l == 1) {
return(F(test_vec))
  }
  else {
    return(2 * shift_F(test_rec(l - 1), 1)(test_vec) + 3 *
shift_F(test_rec(l - 1), 2)(test_vec))
  }
}