一個序列的R中的遞歸function

Question

我正在嘗試編寫一個采用 X 和 n 並返回元素 Xn 的 function。 X 是序列的前 3 個元素的向量，n 是正 integer。 Xn = Xn-1 + Xn-2 - Xn-3

我不確定如何在 R 中像這樣概述 function。 有人可以概述為上述數字序列創建遞歸 function 嗎？

我一直在處理這樣的事情：

myfunc <- function(x,n){
  if (n<0){
    print("please enter positive integer")
  } else {
    return(myfunc(n-1 + n-2 + n-3))
  }
}
myfunc (x = c(1, 2, 3), n = 3) #should return 3 (third number in sequence)
myfunc (x = c(1, 2, 3), n = 4) #should return 6 

Answer 1

這不是遞歸 function，但它會給你你想要的：

myfunc <- function(x, n) sum(x[n - 1:n])

myfunc(1:3, 3) # 3
myfunc(1:3, 4) # 6