Simuler la probabilité pour un ensemble donné de cinq années
Utilisons maintenant la fonction check_for_five de la question précédente pour simuler 10000 itérations de cinq années et estimer à quel point l'exploit de Ronnie Bardah — cinq présences payées consécutives — était rare. Encore une fois, nous supposerons un total de 6000 joueurs, dont 10 %, soit 600, toucheront une bourse chaque année.
Cette activité fait partie du cours
Casse-têtes de probabilité en R
Instructions de l’exercice
- Créez une matrice des résultats indiquant qui a touché une bourse pour chacune des cinq années, en gardant à l'esprit qu'on présume qu'il y a 6000 joueurs au total et que 600 d'entre eux toucheront une bourse.
- Complétez la condition pour vérifier si un joueur a touché une bourse durant chacune des cinq années.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
players <- c(1:6000)
count <- 0
for(i in 1:10000){
# Create matrix of cashing players
cashes <- ___
# Check for five time winners
if(___){
count <- count + 1
}
}
print(count/10000)