Píšeme funkci pro strategii „přepnutí"
Než nasimulujeme situaci se strategií „přepnutí", nejprve napíšeme funkci, která zvládne samotné odhalení dveří. Tuto funkci pak použijeme v dalším cvičení k simulaci pravděpodobnosti výhry při přepnutí volby.
Připomeňme si: pokud jsou původně zvolené dveře správné, hostitel náhodně vybere jedny ze zbývajících dvou dveří a odhalí je.
Pokud jsou původně zvolené dveře nesprávné, hostitel jednoduše odhalí ty druhé nesprávné dveře. V tomto případě na náhodě nezáleží – výsledek je předem daný.
Toto cvičení je součástí kurzu
Probability Puzzles in R
Pokyny k cvičení
- V případě, kdy byl počáteční výběr správný, použij funkci
samplek náhodnému výběru jedněch z ostatních dveří k odhalení. - V opačném případě vyber jediné zbývající dveře k odhalení.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
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 <- ___
}
}