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" |
Partager