Monty Hall

Probability Puzzles in R

Peter Chi

Assistant Professor of Statistics Villanova University

เลือกหนึ่งในสามประตู

image-url

image-url

ออบเจกต์ doors:

doors

1 2 3

สมมติว่าเลือกประตู #1 และประตู #2 มีรางวัล...

เปิดเผยประตูที่เหลือ:

reveal <- doors[-c(1,2)]
reveal

ออบเจกต์ doors:

doors

1 2 3

สมมติว่าเลือกประตู #1 และประตู #1 มีรางวัลจริง...

เปิดเผยประตูที่เหลือแบบสุ่ม:

reveal <- sample(x = doors[-1], size = 1)

Probability Puzzles in R