On dispose d’un ensemble de \(n=5\) éléments (A, B, C, D, E).
dataset <- c("A", "B", "C", "D", "E")
r <- 10000 ## Number of repetition of the experiment
n <- length( dataset) ## Set size
x <- 2 ## Selection size
ordered <- c()
orderless <- c()
for (i in 1:r) {
selection <- sample(x = dataset, size = 2)
new.result.ordered <- paste(selection, collapse=" ")
ordered <- append(ordered, new.result.ordered)
new.result.orderless <- paste(sort(selection), collapse=" ")
orderless <- append(orderless, new.result.orderless)
}
kable(table(ordered))
ordered | Freq |
---|---|
A B | 531 |
A C | 481 |
A D | 534 |
A E | 513 |
B A | 460 |
B C | 473 |
B D | 513 |
B E | 483 |
C A | 494 |
C B | 505 |
C D | 501 |
C E | 531 |
D A | 525 |
D B | 479 |
D C | 524 |
D E | 479 |
E A | 483 |
E B | 467 |
E C | 499 |
E D | 525 |
length(unique(sort(ordered)))
## [1] 20
kable(table(orderless))
orderless | Freq |
---|---|
A B | 991 |
A C | 975 |
A D | 1059 |
A E | 996 |
B C | 978 |
B D | 992 |
B E | 950 |
C D | 1025 |
C E | 1030 |
D E | 1004 |
length(unique(sort(orderless)))
## [1] 10
Comparer les résultats empiriques avec les calculs théoriques.
Sans les énumérer (ce serait impossible), dénombrez les possibilités de tirages de \(x=27\) gènes parmi \(n=25000\), en tenant compte de l’ordre ou sans en tenir compte.
x <- 27
n <- 25000
## Nmombre de tirages sans tenir compte de l'ordre
n.orderless <- choose(n=n, k = x)
## Nombre de tirages en tenant compte de l'ordre
n.ordered <- n.orderless * factorial(x)
Relire – lentement et en comprenant chaque étape – le diaporama “Analyse combinatoire”.
Reprenez chacun des exercices vus au cours
Dans chaque cas, indiquez