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 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
| COMBINAISONS.TEST<- function(i,j,k,l,m,n){
Five.True<- rep(NA, length(Test.N1.A[,1]))
Matrice.Test<- cbind(Test.N1.A[,i], Test.N2.B[,j], Test.N3.C[,k],
Test.N4.D[,l], Test.N5.E[,m], Test.N6.G[,n], Five.True)
Matrice.Test<- Matrice.Test[50:length(Matrice.Test[,1]),] #remove NA's
for (p in 1:length(Matrice.Test[,1])) {
if (Matrice.Test[p,1]==TRUE & Matrice.Test[p,2]==TRUE &
Matrice.Test[p,3]==TRUE & Matrice.Test[p,4]==TRUE &
Matrice.Test[p,5]==TRUE & Matrice.Test[p,6]==TRUE){
Matrice.Test[p,7]<- TRUE
}else{
Matrice.Test[p,7]<- FALSE
}
}
nb.Succes<- length(which(Matrice.Test[,7]==TRUE))
}
Results<- matrix(data=NA, nrow = 49*49*49*49*49*49, ncol= 2)
for (i in 1:49) {
for (j in 1:49) {
for (k in 1:49) {
for (l in 1:49) {
for (m in 1:49) {
for (n in 1:49) {
if (j==1 & k==1 & l==1 & m==1 & n==1){
s<- i
}
Results[s,1]<- paste("i=",s,",","j=",j,",","k=",k,",","l=",l,",","m=",m,",","n=",n)
Results[s,2]<- COMBINAISONS.TEST(s,j,k,l,m,n)
if (i==1 & k==1 & l==1 & m==1 & n==1){
s<- (i*k*l*m*n)+(49-j+(j-2))+j
}
Results[s,1]<- paste("i=",i,",","j=",s,",","k=",k,",","l=",l,",","m=",m,",","n=",n)
Results[s,2]<- COMBINAISONS.TEST(i,s,k,l,m,n)
if (i==1 & j==1 & l==1 & m==1 & n==1){
s<- (i*j*l*m*n)+(49-k+(k-2))+k
}
Results[s,1]<- paste("i=",i,",","j=",j,",","k=",s,",","l=",l,",","m=",m,",","n=",n)
Results[s,2]<- COMBINAISONS.TEST(i,j,s,l,m,n)
if (i==1 & j==1 & k==1 & m==1 & n==1){
s<- (i*j*k*m*n)+(49-l+(l-2))+l
}
Results[s,1]<- paste("i=",i,",","j=",j,",","k=",k,",","l=",s,",","m=",m,",","n=",n)
Results[s,2]<- COMBINAISONS.TEST(i,j,k,s,m,n)
if (i==1 & j==1 & k==1 & l==1 & n==1){
s<- (i*j*k*l*n)+(49-m+(m-2))+m
}
Results[s,1]<- paste("i=",i,",","j=",j,",","k=",k,",","l=",l,",","m=",s,",","n=",n)
Results[s,2]<- COMBINAISONS.TEST(i,j,k,l,s,n)
if (i==1 & j==1 & k==1 & l==1 & m==1){
s<- (i*j*k*l*m)+(49-n+(n-2))+n
}
Results[s,1]<- paste("i=",i,",","j=",j,",","k=",k,",","l=",l,",","m=",m,",","n=",s)
Results[s,2]<- COMBINAISONS.TEST(i,j,s,l,m,s)
}
}
}
}
}
} |