Fonctions pair et impair

Aller en bas

Fonctions pair et impair

Message  flbresson le Mer 17 Nov - 11:58

Un petit truc bête qui ne mange pas de pain. Comme je construit tous mes tableaux sous R avant export sous latex, je dois souvent différencier les lignes paires et impaires de mes matrices pour le remplissage de ces dernières. Voici donc deux fonctions très utiles :
Code:

odd   <-   function(p) (p %% 2)==1 # odd = impair
even   <-   function(p) (p %% 2)==0 # even = pair

qu'on peut utiliser de cette manière :
Code:

b <- 8
A <- array(NA,c(b,3))
A[odd(1:b),] <- "impair"
A[even(1:b),] <- "pair"

Attention toutefois à n'utiliser ces fonctions qu'avec des entiers à cause des arrondis de calcul :
Code:

> odd(1)
[1] TRUE

> odd(1+10^(-4))
[1] FALSE

> odd(1+10^(-40))
[1] TRUE
avatar
flbresson

Messages : 360
Date d'inscription : 19/11/2009
Age : 39
Localisation : Clermont-Ferrand

Voir le profil de l'utilisateur http://sites.google.com/site/flbresson2/

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum