Symulacja prawdopodobieństwa dla danego zestawu pięciu lat
Teraz użyjemy funkcji check_for_five z poprzedniego zadania, aby przeprowadzić 10 000 iteracji obejmujących pięć lat – dzięki temu przekonamy się, jak rzadkim wyczynem było pięć kolejnych otorebkowań Ronniego Bardaha. Podobnie jak wcześniej, przyjmiemy, że łącznie bierze udział 6000 graczy, z których 10%, czyli 600 osób, otorebkuje każdego roku.
To ćwiczenie jest częścią kursu
Zagadki prawdopodobieństwa w R
Instrukcje do ćwiczenia
- Utwórz macierz wyników pokazującą, którzy gracze otorebkowali w każdym z pięciu lat, pamiętając, że przyjmujemy łącznie 6000 graczy, z których 600 otorebkuje.
- Uzupełnij warunek sprawdzający, czy którykolwiek gracz otorebkował we wszystkich pięciu latach.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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)