«Пропущенное значение, где требуется ИСТИНА / ЛОЖЬ» Ошибка в операторе if в R

Question

Я пытаюсь написать утверждение if, которое переводится в следующее:

"Если показатель индивидуальности Honesty_Humility больше или равен медианному баллу Honesty_Humility, выведите ('H'). Если показатель индивидуальности Honesty_Humility меньше, чем средний показатель Honesty_Humility, напечатайте ('L'). Так как оценка Honesty_Humility у некоторых индивидуумов отсутствует, я хочу добавить, что если это так, то выведите ('NA') "

Код, который я до сих пор придумал, следующий:

for (i in 1:length(uniq)){
    dataTest$hhScore[[i]] <-
        if (Hon_Hum$Honesty_Humility[[i]] >=median(Hon_Hum$Honesty_Humility, na.rm = TRUE)){
            print ('H')
        } else if (Hon_Hum$Honesty_Humility[[i]] < median(Hon_Hum$Honesty_Humility, na.rm = TRUE)){
     print('L')
    } else {
      print('NA')
    }

}

Но я продолжаю получать эту ошибку:

Ошибка в if (Hon_Hum $ Honesty_Humility [[i] ]> = медиана (Hon_Hum $ Honesty_Humility,: пропущенное значение, где требуется TRUE / FALSE