Discussion :

[benoit.abm]

Bonjour,
je voudrais savoir s'il y avait une fonction qui permettrait d'obtenir le nombre et l'affichage des combinaisons de paires possibles d'un ensemble.

Exemple pour l'ensemble {A, B, C, D}
-Le nombre de combinaisons de paires est 3:{(A,B);(C,D)}; {(A,C);(B,D)};{(A,D);(B,C)}

Merci,
Benoît

[A. D.]

Bonjour,

Spontanément (et sans assez réfléchir), j'ai voulu répondre de voir du côté de la fonction "combn" qui donne toutes les combinaisons possibles de k éléments parmis un ensemble donné (par exemple c("A","B","C","D")).
Cependant, cela ne semble pas répondre à votre problématique (désolée ) qui est de récupérer les "combinaisons de paires", et j'avoue ne pas avoir connaissance d'une fonction faisant cela directement, mais au cas où vous ne connaîtriez pas la fonction "combn", peut être qu'il y a des choses à explorer de ce côté-ci...

Bonne continuation


Cordialement,

A.D.

[NemoParis]

ça va rejoindre la réponse d'A.D. mais il y a aussi la fonction combinations qui possède pas mal de possibilités
C'est peut-etre un peu long (et d'ailleurs je ne suis même pas sûr que tu arrives au résultat que tu veux!!!) mais pourquoi ne pas faire

Code :

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

1
2
c=combinations(4,3,letters[1:4])
duplicated(c[,-3])

Après il faut compter le nombre de FALSE...

C'est juste un début de piste!

[benoit.abm]

Ok,
merci à vous je regarde ça demain et je vous tiens au courant.

Merci bien!

[pitipoisson]

Bonjour,

Spontanément (et sans assez réfléchir), j'ai voulu répondre de voir du côté de la fonction "combn" qui donne toutes les combinaisons possibles de k éléments parmis un ensemble donné (par exemple c("A","B","C","D")).
Cependant, cela ne semble pas répondre à votre problématique (désolée ) qui est de récupérer les "combinaisons de paires", et j'avoue ne pas avoir connaissance d'une fonction faisant cela directement, mais au cas où vous ne connaîtriez pas la fonction "combn", peut être qu'il y a des choses à explorer de ce côté-ci...

Je pense que la piste n'est pas mauvaise, à condition d'utiliser l'imbrication de 2 combn :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
> combn(apply(combn(letters[1:4], 2),
+             2,
+             paste,
+             collapse=","),
+       2)
     [,1]  [,2]  [,3]  [,4]  [,5]  [,6]  [,7]  [,8]  [,9]  [,10] [,11] [,12]
[1,] "a,b" "a,b" "a,b" "a,b" "a,b" "a,c" "a,c" "a,c" "a,c" "a,d" "a,d" "a,d"
[2,] "a,c" "a,d" "b,c" "b,d" "c,d" "a,d" "b,c" "b,d" "c,d" "b,c" "b,d" "c,d"
     [,13] [,14] [,15]
[1,] "b,c" "b,c" "b,d"
[2,] "b,d" "c,d" "c,d"

[benoit.abm]

Bonjour,
juste pour faire suite à ce message je suis toujours bloqué car la solution de pitipoisson ne correspond pas à ce que je recherche.
En effet, la première colonne de la matrice de pitipoisson est:

Code :

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

1
2
3
4
 
      [,1]  
[1,] "a,b" 
[2,] "a,c"

or dans mon problème "a" ne peut apparaitre qu'une seule fois dans la colonne, c'est-à-dire soit dans la 1ère paire soit dans la seconde mais pas dans les 2.

Je vous tiendrais au courant si je trouve une solution.

Bonne journée.

[A. D.]

Bonjour,

Je ne sais pas s'il y a une fonction "toute prête" permettant de faire ce que vous recherchez, mais en bidouillant un peu je crois qu'on y arrive (il y a sûrement plus simple ! c'est juste une piste...) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
U<-combn(apply(combn(letters[1:4],2),2,paste,collapse=","),2)
U
    [,1]  [,2]  [,3]  [,4]  [,5]  [,6]  [,7]  [,8]  [,9]  [,10] [,11] [,12]
[1,] "a,b" "a,b" "a,b" "a,b" "a,b" "a,c" "a,c" "a,c" "a,c" "a,d" "a,d" "a,d"
[2,] "a,c" "a,d" "b,c" "b,d" "c,d" "a,d" "b,c" "b,d" "c,d" "b,c" "b,d" "c,d"
     [,13] [,14] [,15]
[1,] "b,c" "b,c" "b,d"
[2,] "b,d" "c,d" "c,d"
 
test_fun<-function(s,mat=U)
{
	test_grep<-function(v,tt=s)
	{
		p<-grep(tt,v)
		if(length(p)!=1)
		{
			r<-TRUE
		}
		else
		{
			r<-FALSE
		}
 
		r
	}	
 
	y<-apply(mat,2,test_grep)
}
 
z<-sapply(letters[1:4],test_fun)
 
 
which_true<-function(v)
{
	r<-which(v==TRUE)
	r
}
 
S<-apply(z,2,which_true)
 
S<-unique(as.vector(S))
 
 
UU<-U[,-S]
UU
     [,1]  [,2]  [,3] 
[1,] "a,b" "a,c" "a,d"
[2,] "c,d" "b,d" "b,c"

Cordialement,

A.D.

[benoit.abm]

Merci beaucoup A.D.!
Cela répond en grande partie à ce que je recherchais.

J'ai modifié un peu le programme, mais le fond était là (surtout la fonction test_fun)

Voici le code modifié que je vais pouvoir utiliser dans un autre programme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
U<-combn(apply(combn(letters[1:4],2),2,paste,collapse=","),2)
U
     [,1]  [,2]  [,3]  [,4]  [,5]  [,6]  [,7]  [,8]  [,9]  [,10] [,11] [,12] [,13] [,14] [,15]
[1,] "a,b" "a,b" "a,b" "a,b" "a,b" "a,c" "a,c" "a,c" "a,c" "a,d" "a,d" "a,d" "b,c" "b,c" "b,d"
[2,] "a,c" "a,d" "b,c" "b,d" "c,d" "a,d" "b,c" "b,d" "c,d" "b,c" "b,d" "c,d" "b,d" "c,d" "c,d"
 
 
test_fun<-function(s,mat=U)
{
    test_grep<-function(v,tt=s)
    {
         p<-grep(tt,v)
         return(ifelse(length(p)<=1,TRUE,FALSE))
    }
 
     return(apply(mat,2,test_grep))
}
 
z<-sapply(letters[1:4],test_fun)
 
 
WhichFalse<-function(VecBool)	which(VecBool==FALSE)
 
 
S<-apply(z,2,WhichFalse)
 
S<-sort(unique(unlist(S)))
 
 
UU<-U[,-S]
UU
     [,1]  [,2]  [,3] 
[1,] "a,b" "a,c" "a,d"
[2,] "c,d" "b,d" "b,c"

Pour ma culture perso. une petite question:
J'ai essayé de mettre test_grep en dehors de la fonction test_fun, mais cela ne fonctionne pas. Pourquoi? Problème sur les arguments?

Merci,
Benoît

[A. D.]

Bonsoir Benoît,

Contente d'avoir pu aider
Après, peut-être qu'il existe une fonction déjà implémentée dans R (ou un de ses nombreux packages) pour ce genre de choses, mais je n'ai pas trouvé.

Concernant la fonction "test_grep", je pense qu'elle ne peut pas être créée telle quelle en dehors de la fonction "test_fun" car elle prend en argument un argument de "test_fun" (s). Cela dit, il y a sûrement moyen de procéder d'une autre manière, après c'est à explorer.

Bonne continuation en tout cas


Cordialement,

A.D.