Simulace pravděpodobnosti pro danou sadu pěti let
Teď využijeme funkci check_for_five z předchozí otázky k simulaci 10 000 iterací pěti let, abychom získali představu o tom, jak vzácný byl Ronnieho Bardahův výkon pěti po sobě jdoucích výher. Opět budeme předpokládat celkem 6 000 hráčů, přičemž 10 % z nich, tedy 600, každý rok postoupí do výplat.
Toto cvičení je součástí kurzu
Probability Puzzles in R
Pokyny k cvičení
- Vytvoř matici výsledků toho, kdo postoupil do výplat v každém z pěti let – měj na paměti, že celkový počet hráčů je 6 000 a výplat dosáhne 600 z nich.
- Doplň podmínku, která ověří, zda některý hráč postoupil do výplat ve všech pěti letech.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
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)