R编码与函数nan和na

Question

我如何编写一个带有一个参数的函数来输入一个对象，并且仅当相应的元素为TRUE时才输出NA（它应该为{{1}返回FALSE使用向量NaN。

Answer 1

bar <- c(7,NA,4,NA,3,Inf,NaN)
bar
#> [1]   7  NA   4  NA   3 Inf NaN
foo <- function(x) is.na(x) & !is.nan(x)
foo(bar)
#> [1] FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE