Ймовірність виграшу зі «stick»
Напишімо код для моделювання шоу Монті Голла. У цій вправі учасник щоразу обирає двері №1, завжди «stick» (залишається при першому виборі), а ми знайдемо відносну частоту виграшів після 10000 ітерацій гри.
Спочатку закодуємо лише одну ітерацію. Потім обгорнемо це в цикл for, щоб запускати процес багато разів і отримати змодельовану оцінку справжньої ймовірності виграшу, використовуючи лічильник, про який ми говорили раніше.
Ця вправа є частиною курсу
Ймовірнісні головоломки в R
Інтерактивна практична вправа
Спробуйте виконати цю вправу, доповнивши цей зразок коду.
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)