Discussion :

[enicnath]

Voici un exemple de fonction simple

Code :

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

1
2
3
4
essai <- function(Param) {
if (Param != 0) {Param=Param*2}
print(Param)
}

Pas de problème si j'appelle la fonction comme ceci essai(0) ou comme cela essai(1).
Lorsque je l'appelle ainsi essai(c(3,7)) la fonction fonctionne, mais renvoie un warning :

Code :

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

1
2
3
Warning message:
In if (Param != 0) { :
  the condition has length > 1 and only the first element will be used

C'est encore le cas avec essai(matrix(1:6,nrow=2)).

Ce warning semble contradictoire avec le résultat, puisqu'elle fait bien l'opération sur tous les éléments de l'objet transmis, et pas seulement sur le 1er
Est-ce que quelqu'un saurait expliquer le pourquoi de ce warning ?

[Alpacky]

Bonjour,

le warning te préviens juste que pour le test de ta variable param dans le if, le test réalisé est équivalent à

Code :

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

1
2
 
if(Param[1] != 0)

le test est appliqué uniquement sur le premier élément de ta variable

cdt

[enicnath]

le test est appliqué uniquement sur le premier élément de ta variable

C'est plutôt gênant qu'il exécute l'instruction pour tous les éléments, mais qu'il ne fasse le test que pour un seul.

Est-ce qu'il faudrait insérer quelque chose comme for (i in seq(1:length(Param))) {if (Param != 0) {Param=Param*2}} ?

[v4ss73r]

Bonjour,

Pense peut-être à ajouter une boucle for.
Tu rentre en paramètre de ta fonction un array ou un vecteur
puis :

Code :

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

1
2
3
4
5
6
7
8
9
 
essai <- function(Param) {
   for i in 1:nrow(Param){
      if (Param[i] != 0) {
         Param[i]=Param[i]*2
      }
   print(Param[i])
   }
}

Mano

[Theta]

C'est logique ça marche comme ça. Dans ton exemple avec c(3,7) ça reviendrais à faire if(c(TRUE,TRUE)) ce qui n'a pas de sens.

Une boucle for peut fonctionner effectivement (mais ton code a plusieurs problèmes)

Cela dit c'est plus propre avec ifelse ici:

Code :

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

1
2
 
ifelse(Param != 0, 2*Param, NA)

Ou encore comme ça si tu ne veux pas de NA :

Code :

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

1
2
 
2*Param[Param != 0]

Mais dans ce dernier cas le vecteur retourné par ta fonction n'aura pas la même taille que le paramètre d'entrée ce qui ne sera pas forcément très intuitif à utiliser.

[enicnath]

2*Param[Param != 0]

J'adopte votre dernière proposition.
Merci