Discussion :

[JoHuguenin]

Bonjour à tous et merci d'avance pour le temps que vous m'accordez.

J'ai une matrice [4x8] nommée maxLad et je souhaite vérifier la validité de chaque colonne... sans passer par une boucle for, car je débute et j'essaye de ne pas céder à la facilité
Voici mon code actuel :

Code :

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

1
2
3
4
5
6
7
8
9
10
valLad <- function(maxLad){
  Imax <- maxLad[1,]
  Tmax <- maxLad[3,]
  if((((Tmax >= 20) && (Tmax <= 22)) || (Tmax >= 50)) 
    && (Imax >= 1500)
    && (Imax <= 2200))
    {maxLad[4,] <- 1}else{}
}
 
maxLad[4,] <- apply(maxLad, 2, valLad)

J'ai un message d'erreur qui remonte un nombre de dimensions incorrect.
Pouvez-vous m'expliquer ce qui ne fonctionne pas ?

Merci,
Joris

[JoHuguenin]

Résolu :

En fait apply fonctionne pour des matrices de dimension n avec des fonctions écrites pour des arguments de dimension n-1.

Donc il fallait écrire ma fonction "valLad" pour un vecteur et non pour une matrice.

Ce qui donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
## Validation du ladder : 
valLad <- function(mT){
  if((((mT[3] >= 20) && (mT[3] <= 22)) || (mT[3] >= 50)) 
    && (mT[1] >= 1500)
    && (mT[1] <= 2200))
    {val <- 1}else{val <- 0}
} 
 
maxLad[4,] <- apply(maxLad, 2, valLad)

En espérant que ça serve.