R：创建容器以将数据存储在函数中

Question

我正在尝试编写一个函数来读取数字元素的向量，然后将它们存储到容器中。这是在我使用 if 条件编写代码之前作为一种练习。

到目前为止，我的方法失败了，因为该函数返回了一个空语句，而不是我想要的。我尝试以脚本形式编写它并且它可以工作，但是当它作为一个函数编写时它出现了故障。

这是我使用的代码。

amieven<-function(x){
         flag<-numeric()
         for(i in 1:length(x)){
                    flag[i]=x[i]
    }
}

运行良好的脚本版本如下所示：

flag<-numeric()
      for (i in 1:length(x))
      flag[i]=x[i]

Answer 1

假设您的目标是返回名为flag 的容器，那么您只需指定flag 作为返回值。

amieven<-function(x){
  flag<-numeric()
  for(i in 1:length(x)){
    flag[i]=x[i]
  }
  return(flag)
}

或者干脆

amieven<-function(x){
  flag<-numeric()
  for(i in 1:length(x)){
    flag[i]=x[i]
  }
  flag
}