[Hypervolume sous la courbe ROC] Générer infiniment des boucles for

Bonjour,

J'essaie d'écrire un programme qui, à partir d'une base de données à deux variables Y (qualitative) et X (numérique) va, quelque soit le nombre de modalités de Y, directement faire la comparaison de toutes les observations associées à l'une des modalités avec celles des autres modalités.

Ex:

Citation:

---

Y X
1 0.3
1 0.5
2 0.1
2 0.7
3 0.9
3 0.2

---

va comparer automatiquement:
0.3 < 0.1 < 0.9
0.3 < 0.1 < 0.2
0.3 < 0.7 < 0.9
0.3 < 0.7 < 0.2
0.5 < 0.1 < 0.9
0.5 < 0.1 < 0.2
0.5 < 0.7 < 0.9
0.5 < 0.7 < 0.2

Je bloque depuis un petit moment, j'espérais trouver ici une fonction miracle ou une combinaison de fonctions permettant ce type de résultats. Pour le moment la seule alternative a été de programmer moi-même les comparaisons jusqu'à 5 classes... mais l'idée est bel est bien de monter un code qui marche quel qu’en soit le nombre.


En vous remerciant de l'intérêt que vous aurez porté à ma problématique... 8O

Salut,

Code:

---

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

#si ton tableau de depart s'appelle d d<-data.frame(X=c(1,1,2,2,3,3),Y=c(0.3,0.5,0.1,0.7,0.9,0.2)) n<-length(unique(d$X)) l<-list() for(i in 1:n){l[[i]]<-d$Y[d$X==i]} d2<-expand.grid(l) d2$res<-apply(d2,1,function(x){     as.logical(min(order(x)==1:length(x)))     }) d2

---

Renvoit:


Var1 Var2 Var3 res
1 0.3 0.1 0.9 FALSE
2 0.5 0.1 0.9 FALSE
3 0.3 0.7 0.9 TRUE
4 0.5 0.7 0.9 TRUE
5 0.3 0.1 0.2 FALSE
6 0.5 0.1 0.2 FALSE
7 0.3 0.7 0.2 FALSE
8 0.5 0.7 0.2 FALSE