Discussion :

[InsermU]

Bonjour tout le monde,

Je me permets de solliciter votre aide afin de traiter un jeu de données.
En effet, je voudrais parcourir une table (matrice) qui, dans les normes, doit contenir les valeurs 0,1,2,3,4 et remplacer toute valeur différente de celles-ci par NA.

J'ai de la chance du moment que toutes les valeurs différentes de 0,1,2,3 et 4 sont supérieurs à 4.

Donc en définitif, je veux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

table [table>4] <-NA

Aussi, je ne sais pas pourquoi le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

table [table>4] <-NA

ne marche pas ?

Je sais que ifelse devrait marcher.

Merci par avance.

J'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

table<- ifelse (table[,c(3:50)]>4, NA,table[,c(3:50)])

mais ça ne marche pas.

Quelqu'un aurait des idées SVP?
Je vous remercie par avance !!!

Bonne soirée.

[mamounMob]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
mat <- matrix(-1:10, 3)
ifelse(mat>4, NA, mat)
#     [,1] [,2] [,3] [,4]
#[1,]   -1    2   NA   NA
#[2,]    0    3   NA   NA
#[3,]    1    4   NA   NA

c'est ce que tu souhaites?

[InsermU]

Bonjour mamounMob,

Je vous remercie pour votre réponse.
Effectivement l'idée c'est bien ça. Sauf que je voudrais en effet faire une boucle for pour itérer dans la matrice. Et par la suite mettre dans la matrice l'instruction qui permet de remplacer toute valeur de la matrice qui serait différente de 0,1,2,3 et 4.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
table <- matrix(nrow=1053,ncol=19) 
for (i in 1:nrow(table)) 
	for(j in 1:ncol(table)) 
        {Instruction}
     )

Auriez vous des idées pour y arriver?

[mamounMob]

...Et par la suite mettre dans la matrice l'instruction qui permet de remplacer toute valeur de la matrice qui serait différente de 0,1,2,3 et 4.

j'ai du mal à suivre, tu souhaites remplacer les valeurs qui ne sont pas comprises entre 0 et 4 par NA ou bien insérer une instruction ?

[mamounMob]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
table <- matrix(nrow=1053,ncol=19) 
for (i in 1:nrow(table)) 
	for(j in 1:ncol(table)) 
        if(table[i,j]>4 | table[i,j]<0)
            table[i,j] = NA

tu consommes beaucoup plus temps avec les boucles, l'écriture matricielle est conseillée, mais c'est toi qui vois.

[InsermU]

En effet mamounMob, la question n'est pas encore résolue car j'ai le message d'erreur suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Error in if ( table[i, j] > 4 | table[i, j] < 0)  table[i,  : 
  missing value where TRUE/FALSE needed

Et entre temps le code fait que toutes les valeurs de ma table sont changées en NA

J'ai essayé de rajouter la condition "else" mais le message d'erreur persiste

[mamounMob]

Regardes si ta matrice contient des 'NA', si c'est le cas ça va planter.
Vérifies bien que ta matrice ne contient que des 'numeric'

[InsermU]

Donc c'est ça le soucis car la matrice initiale contient bien des NA....
j'ai essayé les conditions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if(table[i,j]>4 | table[i,j] != NA)

mais ça ne donne rien...

[vchouraki]

Bonjour,

Le nom de votre objet est aussi le nom d'une fonction ce qui peut entrainer des erreurs. Essayez de donner un nom moins ambigu (p.-ex. tableau ou matrice) a votre objet et retestez.

Sinon, est-ce que le code suivant marche?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

is.na(tableau) <- ! tableau %in% 0:4

HTH,

Vincent