Pravděpodobnost výhry při strategii „zůstat"
Pojďme napsat kód, který nasimuluje hru Monty Hall. V tomto cvičení bude soutěžící pokaždé volit Dveře č. 1 a strategii „zůstat" – a my zjistíme relativní četnost výhry po 10 000 iteracích hry.
Nejprve napíšeme kód pro jednu iteraci. Pak ho zapojíme do smyčky for, která celý proces opakovaně spustí a umožní nám získat simulovaný odhad skutečné pravděpodobnosti výhry – pomocí principu čítače, o kterém jsme mluvili dříve.
Toto cvičení je součástí kurzu
Probability Puzzles in R
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
set.seed(1)
doors <- c(1,2,3)
# Randomly select one of the doors to have the prize
prize <- sample(x = ___, size = ___)
initial_choice <- 1
# Check if the initial choice equals the prize
if(___){
print("The initial choice was correct!")
}
print(prize)