I am trying to write an if statement, that translates into the following:
"If an individual's Honesty_Humility score is greater than or equal to the median Honesty_Humility score, print ('H'). If an individual's Honesty_Humility score is less than the median Honesty_Humility score, print ('L'). Since some individuals' Honesty_Humility score is missing, I want to add that if that is the case, then print ('NA')"
The code I came up with so far is the following:
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')
    }
}
But I keep getting this error:
Error in if (Hon_Hum$Honesty_Humility[[i]] >= median(Hon_Hum$Honesty_Humility, : missing value where TRUE/FALSE needed
 
    