[r] 숫자가 정수인지 확인

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)
}

내 접근 방식은 어디에서 실패합니까? 당신이 내 가상의 입장에 있었다면 당신은 어떤 일을 할 것입니까?

답변

x%%1==0

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

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) }
}

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

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

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

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

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

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