R：生成前n个项的函数

Question

我正在尝试编写一个函数，该函数将使用给定的等式生成前n个项。 例如：f（x_2）= x_1 * r + 3，x_n = f（x_（n-1） 这是我的代码：

super = function(x,r,n){
x[n] = r*x+3
x1=seq(x,x[n],,n)
return(x1)
}

当我尝试运行它时，我一直得到：超级错误（0.6,2,100）：找不到功能＆＃34; x＆＃34;。 但是，如果我制作一个基本代码，如：

n=88
x=0.6
x1 = seq(x,100,,n)

一切正常

提前感谢任何输入

Answer 1

我们可以在新切片上切片输入和应用函数。

getFirstN = function(arr, func, n){
    slice = arr[1:n]
    return(lapply(slice, func))
}
e.g.:
square = function(x) {
    return(x * x)
}

example = c(1, 2, 3, 4)

print(getFirstN(example, square, 2)) 
1, 4 # the output