comment vérifier si le nombre est entier ?

Question

J'ai été surpris d'apprendre que R n'est pas livré avec une fonction pratique pour vérifier si le nombre est entier.

is.integer(66) # FALSE

Les fichiers d'aide préviennent :

is.integer(x) ne teste pas si x contient des nombres entiers ! Pour cela, utilisez round comme dans la fonction is.wholenumber(x) dans les exemples.

L'exemple comporte cette fonction personnalisée comme "solution de rechange".

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

Si je devais écrire une fonction pour vérifier les entiers, en supposant que je n'ai pas lu les commentaires ci-dessus, j'écrirais une fonction qui ressemblerait à quelque chose comme

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

Où mon approche échouerait-elle ? Que feriez-vous si vous étiez à ma place ?

Answer 1

Une autre alternative consiste à vérifier la partie fractionnaire :

x%%1==0,

ou,

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

si vous voulez vérifier dans une certaine tolérance.

Answer 2

Voici une solution utilisant des fonctions plus simples et sans bidouillage :

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

De plus, vous pouvez tester tout un vecteur à la fois, si vous le souhaitez. Voici une fonction :

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

Vous pouvez le changer pour utiliser *apply dans le cas des vecteurs, des matrices, etc.

Answer 3

Voici un moyen, apparemment fiable :

check.integer <- function(N){
    !length(grep("[^[:digit:]]", as.character(N)))
}

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

Edit : pour permettre aux entiers spécifiés en notation scientifique de faire comme ceci :

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

Answer 4

Lire la documentation du langage R, as.integer a plus à voir avec la façon dont le nombre est stocké qu'avec le fait qu'il soit pratiquement équivalent à un nombre entier. as.integer teste si le nombre est déclaré comme un nombre entier. Vous pouvez déclarer un nombre entier en mettant un L après elle.

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

Des fonctions comme round retournera un entier déclaré, ce qui est ce que vous faites avec x==round(x) . Le problème avec cette approche est de savoir ce que vous considérez comme étant pratiquement un nombre entier. L'exemple utilise une précision moindre pour tester l'équivalence.

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

En fonction de votre demande, vous pourriez donc avoir des problèmes de cette manière.

Answer 5

Il semble que vous ne voyez pas la nécessité d'intégrer une certaine tolérance d'erreur. Cela ne serait pas nécessaire si tous les nombres entiers étaient saisis en tant que tels, mais parfois ils résultent d'opérations arithmétiques qui perdent un peu de précision. Par exemple :

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

Notez que ce n'est pas la faiblesse de R, tous les logiciels informatiques ont des limites de précision.