Symulacja 10000 gier
Teraz zasymulujemy 10000 gier i odpowiemy na pytanie: skoro wyrzucenie 2 i 12 jest jednakowo mało prawdopodobne, jak często w trakcie jednej gry któraś z tych wartości pojawia się więcej niż dwa razy?
Podstawowa strategia mówi, że pól z wartościami 2 i 12 należy unikać, bo są najmniej prawdopodobne. Choć teoretycznie to prawda, sprawdzimy tutaj, jak bardzo zaskakujące powinno być ich częstsze niż oczekiwane pojawianie się. Funkcja roll_dice z poprzednich ćwiczeń jest już wczytana.
To ćwiczenie jest częścią kursu
Zagadki prawdopodobieństwa w R
Instrukcje do ćwiczenia
- Użyj funkcji
replicate, aby rzucić dwiema kośćmi 60 razy. - Użyj warunku złożonego, aby sprawdzić, czy wyrzucono 2 lub 12 więcej niż dwa razy.
- Wyświetl oszacowane prawdopodobieństwo wyrzucenia 2 lub 12 więcej niż dwa razy w trakcie jednej gry.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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(___)