Проверьте, является ли число целым числом

Question

Я был удивлен, узнав, что R не поставляется с удобной функцией для проверки того, является ли число целым.

is.integer(66) # FALSE 

help files warns:

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

Чтение документации на языке 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 3

Я не уверен, чего вы пытаетесь достичь. Но вот некоторые мысли:
1. Преобразование в целое:
num = as.integer(123.2342)
2. Проверьте, является ли переменная целым числом:
is.integer(num)
typeof(num)=="integer"

Answer 4

Похоже, что вы не видите необходимости включать некоторые допуски ошибок. Это было бы необязательно, если бы все целые числа вводились как целые числа, однако иногда они возникают в результате арифметических операций, которые теряют определенную точность.Например:

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

Обратите внимание, что это не слабость R, все компьютерное программное обеспечение имеет некоторые пределы точности.

Answer 5

Вот один, по-видимому, надежный способ:

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 6

От Hmisc::spss.get:

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

гораздо безопаснее вариант, IMHO, поскольку он «обходит» проблему точности машины. Если вы попробуете is.integer(floor(1)), вы получите FALSE. BTW, ваше целое не будет сохранено как целое, если оно больше .Machine$integer.max, то есть по умолчанию 2147483647, поэтому либо измените значение integer.max, либо выполните альтернативные проверки ...

Answer 7

Вот решение, использующее более простые функции и no hacks:

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 8

вы можете использовать простой, если условие, как:

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

Answer 9

В R, может ли число числовое или целое число быть определено функцией класса. Обычно все числа хранятся как числовые и для явного определения числа как целого числа нам нужно указать «L» после номера.

Пример:

х < - 1

класс (х)

[1] "цифровая"

х < - 1L

класс (х)

[1] "целое"

Я надеюсь, что это то, что нужно. Спасибо :)