Pisanie funkcji do strategii „zmiany"
Zanim zasymulujemy strategię „zmiany", napiszmy najpierw funkcję wykonującą odsłonięcie w tym kontekście. Użyjemy jej w następnym ćwiczeniu do symulacji prawdopodobieństwa wygranej przy zmianie wyboru.
Przypomnij sobie: jeśli początkowo wybrane drzwi są właściwe, prowadzący losowo odsłania jedne z pozostałych dwóch drzwi.
Jeśli natomiast początkowy wybór był błędny, prowadzący po prostu odsłania drugie nieprawidłowe drzwi. W tym przypadku odsłonięcie nie jest losowe.
To ćwiczenie jest częścią kursu
Zagadki prawdopodobieństwa w R
Instrukcje do ćwiczenia
- W przypadku, gdy początkowy wybór był trafny, użyj funkcji
sample, aby losowo wybrać jedne z pozostałych drzwi do odsłonięcia. - W przeciwnym razie wybierz jedyne pozostałe drzwi do odsłonięcia.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
reveal_door <- function(doors, prize, initial_choice){
if(prize == initial_choice){
# Sample at random from the two remaining doors
reveal <- sample(x = ___, size = 1)
} else {
# When the prize and initial choice are different, reveal the only remaining door
reveal <- ___
}
}