检查数字是否为整数

Question

我很惊讶地发现R没有附带一个方便的函数来检查数字是否为整数.

is.integer(66) # FALSE

在帮助文件警告:

is.integer(x)不测试是否x 包含整数!为此,请使用round,如is.wholenumber(x)示例中的函数 .

该示例将此自定义函数作为"解决方法"

is.wholenumber <- function(x, tol = .Machine$double.eps^0.5)  abs(x - round(x)) < tol
is.wholenumber(1) # is TRUE

如果我必须编写一个函数来检查整数,假设我没有阅读上面的注释,我会编写一个函数,它会像

check.integer <- function(x) {
    x == round(x)
}

我的方法会在哪里失败？如果你穿着我的假想鞋,你的工作会是什么？

Answer 1

另一种方法是检查小数部分:

x%%1==0

要么,

min(abs(c(x%%1, x%%1-1))) < tol

如果你想在一定的容忍范围内检查.

Answer 2

这是一个使用更简单的功能而且没有黑客的解决方案:

all.equal(a, as.integer(a))

更重要的是,如果您愿意,可以一次测试整个矢量.这是一个功能:

testInteger <- function(x){
  test <- all.equal(x, as.integer(x), check.attributes = FALSE)
  if(test == TRUE){ return(TRUE) }
  else { return(FALSE) }
}

您可以将其更改为*apply在矢量,矩阵等情况下使用.

Answer 3

阅读R语言文档,as.integer更多地与数字的存储方式有关,而不是实际上等于整数.is.integer测试数字是否声明为整数.您可以通过在其L后面添加一个整数来声明它.

> is.integer(66L)
[1] TRUE
> is.integer(66)
[1] FALSE

函数也round将返回一个声明的整数,这就是你正在做的事情x==round(x).这种方法的问题是你认为实际上是一个整数.该示例使用较低的精度来测试等效性.

> is.wholenumber(1+2^-50)
[1] TRUE
> check.integer(1+2^-50)
[1] FALSE

因此,根据您的应用程序,您可能会遇到麻烦.

Answer 4

这是一个显然可靠的方式:

check.integer <- function(N){
    !grepl("[^[:digit:]]", format(N,  digits = 20, scientific = FALSE))
}

check.integer(3243)
#TRUE
check.integer(3243.34)
#FALSE
check.integer("sdfds")
#FALSE

该解决方案还允许使用科学记数法表示整数:

> check.integer(222e3)
[1] TRUE

Answer 5

您似乎没有看到需要包含一些容错.如果所有整数都以整数形式输入,则不需要它,但有时它们会因算术运算而失去一些精度.例如:

> 2/49*49
[1] 2
> check.integer(2/49*49)
[1] FALSE 
> is.wholenumber(2/49*49)
[1] TRUE

请注意,这不是R的弱点,所有计算机软件都有一定的精度限制.

Answer 6

来自Hmisc::spss.get:

all(floor(x) == x, na.rm = TRUE)

更安全的选择,恕我直言,因为它"绕过"机器精度问题.如果你尝试is.integer(floor(1)),你会得到FALSE.顺便说一下,如果你的整数大于.Machine$integer.max值,那么你的整数将不会保存为整数,默认情况下为2147483647,所以要么改变integer.max值,要么做替代检查......

Answer 7

您可以使用简单的 if 条件，例如：

if(round(var) != var)­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­