Отсутствует значение где TRUE / FALSE требуется в функции min

Question

Вопрос 1. Напишите функцию с именем my_min(), которая вычисляет минимум числового вектора без функции min (). Включите логический аргумент na.rm, который указывает, следует ли удалять NA.

my_min <- function(x){
  for (i in 1:length(x)) {
      if (x[i] < x[i+1]) {
        result <- x[i]
      } else {
        result <- x[i+1]
      }
  }
result
}

my_min(1:10)

Ошибка в if (x [i]

Я не знаю, почему отсутствует значение;Может ли кто-нибудь научить меня, как это сделать с помощью if заявления? (даже если это не нужно, я просто хочу знать, как правильно ответить на этот вопрос с помощью оператора if).

Answer 1

Попробуйте это

my_min <- function(x){
  min <- x[1]
  for (i in 1:(length(x)-1)) {
    now <- x[i+1]
    is.rm <- is.na(now)
    if ((now < min) & !is.rm) {
       min <- now
    } 
  }
  min
}