如何创建在R中返回向量的函数？

Question

我想创建一个函数，将其结果作为向量返回。更具体地说，该函数返回输入值的除数并将其放置在向量中。

divisors<-function(n){
  i <- 2
  c<-1

  x<-c()

  while(i <= n) {
    if(n%%i==0) {
      x[c]<-i  
    }
    i <- i + 1
    c<-c+1
    x
  }        
}

Answer 1

我编辑了一些代码，以返回向量并避免使用NA值。

  divisors <- function(n){
  i <- 2
  x<-vector("integer") 
  while(i <= n) {
    if(n%%i == 0) {
      x <- c(x, i) 
      }
    i  <- i + 1
    }        
    x
    }