Вот проблема: ваш вектор - символ в режиме, поэтому, конечно, это не число.Этот последний элемент интерпретируется как строка «NaN».Использование is.nan
будет иметь смысл, только если вектор числовой.Если вы хотите, чтобы значение отсутствовало в символьном векторе (чтобы оно правильно обрабатывалось функциями регрессии), тогда используйте (без кавычек) NA_character_
.
> tester1 <- c("2", "2", "3", "4", "2", "3", NA_character_)
> tester1
[1] "2" "2" "3" "4" "2" "3" NA
> is.na(tester1)
[1] FALSE FALSE FALSE FALSE FALSE FALSE TRUE
Ни "NA", ни«NaN» действительно отсутствуют в символьных векторах.Если по какой-то причине в факторной переменной были значения, которые были «NaN», вы могли бы просто использовать логическое индексирование:
tester1[tester1 == "NaN"] = "NA"
# but that would not really be a missing value either
# and it might screw up a factor variable anyway.
tester1[tester1=="NaN"] <- "NA"
Warning message:
In `[<-.factor`(`*tmp*`, tester1 == "NaN", value = "NA") :
invalid factor level, NAs generated
##########
tester1 <- factor(c("2", "2", "3", "4", "2", "3", NaN))
> tester1[tester1 =="NaN"] <- NA_character_
> tester1
[1] 2 2 3 4 2 3 <NA>
Levels: 2 3 4 NaN
Этот последний результат может быть удивительным.Есть оставшийся уровень "NaN", но ни один из элементов не является "NaN".Вместо этого элемент, который был "NaN", теперь является реальным отсутствующим значением, обозначенным в печати как.