Boucle à compteur variable en R

Bonjour,

Je cherche à supprimer les lignes d'une matrice si une certaine condition est respectée. Je dois le faire avec une boucle (à cause de la condition). Je souhaiterais donc faire baisser le compteur de ma boucle lorsqu'une ligne est supprimée, pour ne pas qu'il omette une ligne dans la matrice.

Voici mon code (R):
alloc est la matrice à laquelle j'enlève des lignes si la condition est respectée.

Code:

---

1 2 3 4 5 6 7 8 9

#Boucle: for (count in 2:nrow(alloc)){ #Condition: if (alloc[count, 8] <= max(alloc[1:count-1, 8])) #si condition valable, j'enlève la ligne alloc <- alloc[-count, ] count <- count - 1 }

---

Mon porblème vient donc du fait que "count" ne diminue pas dans la boucle, malgré l'instruction "count <- count - 1", et que "nrow(alloc)" ne varie pas non plus avec la taille de "alloc". J'espère que ceci n'est pas une redite, mais j'ai cherché dans la doc R et sur internet et n'ai rien trouvé à ce sujet.

Merci d'avance pour votre aide!

Bonjour,
j'ai aussi tendance à faire des boucles pour R car je n'ai pas appris autrement, mais il semble que R ne soit pas très bon en boucles, du coup je te conseille plutot d'effectuer quelque chose de ce style:

Code:

---

alloc <- alloc[-which(condition),]

---

En espérant que cela fonction chez toi.

Hadrien

Merci pour ta réponse!

Le problème étant que ma condition dépend de variables qui sont dans la matrice alloc. C'est pour ça que j'ai besoin de faire une boucle. Ta méthode fonctionnerait si la condition était indépendante du contenu du tableau (par exemple ne garder que les lignes dont le 5e élément est positif). Dans mon cas, je ne vois pas comment me séparer de la boucle...

OK je comprends mieux...
Si je comprends bien ton code, tu cherche à lire ton tableau dans un certain ordre, pour avoir des valeur croissantes sur la colonne 8, c'est bien ça?

Perso, ton code a marché sur un exemple fictif chez moi à partir du moment ou j'ai écris

Code:

---

count = count-1

---

et non pas

Code:

---

count <- count-1

---

...

Étrange d'ailleurs...

Tout d'abord merci pour ton aide!
Ma matrice alloc est déjà triée par croissance des valeurs de la colonne 8 en fait. Je cherche à supprimer les lignes de la matrice alloc qui ne respectent pas la condition. Sauf qu'en supprimant une colonne, la taille du tableau diminue, et pour ne pas sauter une ligne, je voudrais que l'indice descende d'un cran.

Exemple: à count = 8, la ligne 8 ne respecte pas la condition, donc on la supprime. Sauf que je voudrais que count vale alors 7 pour que dans la boucle, il vaille à nouveau 8 et s'occupe bien de la ligne 8 (numérotée 9 avant la suppression de la ligne 8). Or en pratique il s'occupe de la ligne 9, comme si le count de la boucle était différent du count à qui j'enlève 1...! Pareil pour nrow(alloc) qui ne diminue pas...

Du coup je me demandais s'il y avait une parade secrète dans R pour éviter ça...

Quand je remplace le <- par un =, j'obtiens exactement la même erreur, certaines lignes sont omises...

Edit: j'ai trouvé une fausse parade, il suffit de faire tourner plusieurs fois la boucle, mais c'est tellement chronophage, et ma matrice alloc peut avoir des dimensions stratosphériques!

Je pense que tu peux t'en tirer avec une boucle while, qui ressemblerait à peu près à ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

dimension <- nrow(alloc) count = 1 while (count <= dimension) { if (alloc[count, 8] <= max(alloc[1:count-1, 8])) #si condition valable, j'enlève la ligne { alloc <- alloc[-count, ] count = count - 1 dimension = dimension - 1 } count = count + 1 }

---

(ou quelque chose comme ça, je n'ai pas essayé je t'avoue)

ce qui au moins ne te poserai plus le problème de nrow invariant, étant donné que la boucle for considère le nombre de ligne initial, mais tant que tu ne sors pas de ton for, elle incrémente count à chaque boucle mais ne révise pas sa valeur de nrow. (à vérifier mais ça a l'air en tout cas)

En espérant que cela marchera,

Cordialement

Bonjour,
a priori, voici ce que je ferais:

Code:

---

1 2 3 4 5 6 7 8 9

M <- matrix(1:80, nrow=10) M[5,8]=100 M[7,8]=100   ind <- 1 while (is.na(ind)==F){ ind <- (which(M[,8]!=sort(M[,8])))[1] if (is.na(ind)==F) {M <- M[-ind,]} }

---

On doit pouvoir améliorer :roll:

Bonne journée :)

@Hadrien35: Parfait, à quelques modif d'indices près, c'est ça la solution! Suffisait d'y penser! Merci beaucoup en tout cas!

Bonne continuation!

Edit: lilly34, merci pour ta réponse également, mais la solution d'Hadrien35 fonctionne bien pour mon problème!