Работа с пропущенными значениями при написании логических выражений

Просто для удовольствия, и я абсолютно не рекомендую этот подход:

Ops.sas <- function (e1, e2) {
  comparison <- switch(.Generic, `<` = , `>` = , `==` = , `!=` = ,
                    `<=` = , `>=` = TRUE, FALSE)
  if (comparison) {
    e1[is.na(e1)] <- -Inf
    e2[is.na(e2)] <- -Inf
  }
  
  NextMethod(.Generic)
}

И сейчас:

> foo <- structure(c(NA, 2,3,2, NA), class = "sas")
> bar <- structure(c(2,3,2, NA, NA), class = "sas")
> foo < bar
[1]  TRUE  TRUE FALSE FALSE FALSE
> foo <= bar
[1]  TRUE  TRUE FALSE FALSE  TRUE
> foo == bar
[1] FALSE FALSE FALSE FALSE  TRUE
> foo != bar
[1]  TRUE  TRUE  TRUE  TRUE FALSE
> foo > bar
[1] FALSE FALSE  TRUE  TRUE FALSE
> foo >= bar
[1] FALSE FALSE  TRUE  TRUE  TRUE

if(is.na(a) | a < 2){
   c=1
} else {
   c=2
}

Я думаю, что самый простой способ — просто добавить новое условие в свой тест. В R символ | означает ИЛИ.

Вы можете использовать тот факт, что NA является логическим объектом.

(a < 2) | is.na(a)

Я думаю, вам придется изменить значения в a, например, так

a <- c(NA, 1, 3, 4, NA)
a
#> [1] NA  1  3  4 NA

a < 2
#> [1]    NA  TRUE FALSE FALSE    NA

a[is.na(a)] <- -Inf

a < 2
#> [1]  TRUE  TRUE FALSE FALSE  TRUE

^{Создано 4 февраля 2022 г. с помощью пакета reprex (v2.0.1)}