Как я могу создать функцию, которая возвращает вектор в 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
    }