Cập nhật bằng mô phỏng
Bạn thấy 11 lần sấp/ngửa ra ngửa trong 20 lần tung từ một đồng xu hoặc là công bằng (xác suất ra ngửa 50%) hoặc là lệch (xác suất ra ngửa 75%). Đồng xu công bằng có khả năng cao đến mức nào? Hãy trả lời bằng cách mô phỏng 50.000 đồng xu công bằng và 50.000 đồng xu lệch.
Bài tập này là một phần của khóa học
Nền tảng Xác suất với R
Hướng dẫn bài tập
- Mô phỏng 50.000 trường hợp tung 20 lần từ một đồng xu công bằng (xác suất ra ngửa 50%), và từ một đồng xu lệch (xác suất ra ngửa 75%). Lưu lần lượt vào
fairvàbiased. - Tìm số đồng xu công bằng có đúng 11/20 lần ra ngửa, rồi số đồng xu lệch có đúng 11/20 lần ra ngửa. Lưu lần lượt vào
fair_11vàbiased_11. - Tìm tỷ lệ trong tất cả các đồng xu có 11 lần ra ngửa mà là đồng xu công bằng — đây là xác suất hậu nghiệm rằng một đồng xu với 11/20 lần ra ngửa là công bằng.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# Simulate 50000 cases of flipping 20 coins from fair and from biased
fair <-
biased <-
# How many fair cases, and how many biased, led to exactly 11 heads?
fair_11 <-
biased_11 <-
# Find the fraction of fair coins that are 11 out of all coins that were 11