如何防止使用`replicate`循环

Question

我正在尝试简化代码，如下所示

someFunc <- function(x) {
   return(x + 3L)
}

x <- 1L
for (i in 1:10) {
   x <- c(x, someFunc(x[length(x)]))
}

我在想像这样简化

replicate(10, x <- c(x, someFunc(x[length(x)]))

但这不起作用，因为它使用了x的副本。我如何在不使用循环的情况下让逻辑工作。我认为在R中必须有一种方法(someFunc应该是任意的-我只是作为一个例子发布它)。

Answer 1

如果x的输出是

> x
[1]  1  4  7 10 13 16 19 22 25 28 31

你可以直接使用：

x <- seq(0,10) * 3 + 1