Simuleer 10000 spellen

Laten we nu 10000 spellen simuleren en de volgende vraag beantwoorden: omdat 2 en 12 even onwaarschijnlijk zijn, hoe vaak wordt er binnen één spel meer dan twee keer een 2 of een 12 gegooid?

Volgens de basisstrategie moet je de vakken met 2 of 12 vermijden omdat die het minst waarschijnlijk zijn. Dat is theoretisch waar, maar hier onderzoeken we hoe verrassend het echt is als ze toch vaker voorkomen dan je zou verwachten. De functie roll_dice uit eerdere oefeningen is alvast voor je geladen.

Deze oefening maakt deel uit van de cursus

Kanspuzzels in R

Cursus bekijken

Oefeninstructies

Gebruik de functie replicate om twee dobbelstenen 60 keer te gooien.
Gebruik een samengestelde voorwaarde om te controleren of er meer dan twee keer een 2 of 12 is gegooid.
Print je geschatte kans om binnen één spel meer dan twee keer een 2 of 12 te gooien.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

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(___)

Code bewerken en uitvoeren