逻辑表达式计算到NA

Question

在R，I有一个函数离群值接受长度3的数值矢量我试图这样：

Outlier <- function(x) { 
    x <- sort(x) 
    if((x[1] < 1e-2) %% (x[1] > 1e-4))) { 
print(x) 
    } 
... 

然而，我正在错误消息“中的错误，如果（条件）{：参数不能解释为逻辑“。调试完成后，我发现每当x [1] == 0时都会产生错误。某种程度上，当x [1] == 0时，逻辑表达式的计算结果为NA。与其他值一样按预期工作。这是为什么，我该如何防止它？

Answer 1

为了防止发生这种情况，您应该修改您的目标。 NA仅在x[1]为零时才显示，只要x[1] > 1e-4评估为FALSE就会显示。

TRUE %% FALSE 
[1] NA 
FALSE %% FALSE 
[1] NA 

这显然是有道理的，我才惊讶地发现它不返回NaN：

1 %% 0 
[1] NaN 
0 %% 0 
[1] NaN 

这使我得出这样的结论R解析器是足够聪明的认识逻辑和数值之间的差值。