Boucle conditionnelle sur une matrice

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é :D
Voici mon code actuel :

Code:

---

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

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:

---

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.