简单的R函数中的for循环输出空向量

通过一个例子来解释如何排除这个问题。我们将使用以下函数：

my_function <- function(x) {
  output <- c()
  for (i in 1:length(x)) {
    output[i] <- x[i]*2
  }
  return(output)
}

该函数需要一个输入向量x，并返回每个元素乘以2的输出向量。但是，当我们使用该函数时，却得到了一个空向量输出。

> my_function(c(1,2,3))
numeric(0)

这是因为在for循环中，我们没有给输出向量分配任何初始空间，导致代码不能从for循环中返回成功计算后的向量。为了解决这个问题，我们可以在for循环之前为输出向量分配空间：

my_function <- function(x) {
  output <- numeric(length(x)) #分配初始空间
  for (i in 1:length(x)) {
    output[i] <- x[i]*2
  }
  return(output)
}

现在，当我们再次运行该函数，就能得到正确的输出向量了：

> my_function(c(1,2,3))
[1] 2 4 6