循环内部的逻辑比较在遇到零时崩溃

Question

我想用代码解释我的问题

example_1 <- sample(-100:100, 100)    # simple sample for my question
example_1[30] <- NA                   # changed one of them to NA
not_equal_zero <- matrix(NA, 100, 1)  # matrix to find out if there is any zeros (1 for TRUE, 0 for FALSE)

for (i in 1:100) {                    # check each observation if it is 0 assign 1 to "not equal zero matrix"
  if (example_1[i] == 0) {
    not_equal_zero[i] <- 1
  } else {
    not_equal_zero[i] <- 0
  }
}

当 i = 30 时，它找到 0，然后终止。我不是只检查零。我有特殊的价值观。这个问题有什么解决办法？

2 == 0    # it gives FALSE
0 == 0    # it gives TRUE
NA == 0   # it gives NA but i need FALSE

Answer 1

NA 与 anything 相比给出 NA。您可能想要替换：

if (example_1[i] == 0)

与：

if (!is.na(example_1[i]) && example_1[i] == 0)