Simulace 10 000 her

Teď nasimulujeme 10 000 her a zodpovíme následující otázku: protože čísla 2 a 12 jsou stejně nepravděpodobná, jak často padne jedno z nich víckrát než dvakrát během jedné hry?

Základní strategie říká, že políčkům s čísly 2 nebo 12 je lepší se vyhýbat, protože mají nejmenší pravděpodobnost. Teoreticky to sice platí, ale zde prozkoumáme, jak překvapivé by vlastně bylo, kdyby tato čísla padla častěji, než bychom čekali. Funkce roll_dice z předchozích cvičení je už načtená.

Toto cvičení je součástí kurzu

Probability Puzzles in R

Zobrazit kurz

Pokyny k cvičení

Pomocí funkce replicate hoď dvěma kostkami 60krát.
Použij složenou podmínku a zkontroluj, zda padlo číslo 2 nebo 12 víckrát než dvakrát.
Vypiš odhadnutou pravděpodobnost, že během jedné hry padne číslo 2 nebo 12 více než dvakrát.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

set.seed(1)
counter <- 0

for(i in 1:10000){
  # Roll two dice 60 times
  rolls <- ___
  
  # Check whether 2 or 12 was rolled more than twice
  if(___){
    counter <- counter + 1
  }  
}

# Print the answer
print(___)

Upravit a spustit kód