Cập nhật với prior
Bạn thấy 14 trong số 20 lần tung ra mặt ngửa, và bắt đầu với 80% khả năng đồng xu là công bằng và 20% khả năng nó bị lệch về 75%.
Bạn sẽ giải bài này bằng mô phỏng, bắt đầu với một “xô” gồm 10.000 đồng xu, trong đó 8.000 là công bằng và 2.000 là lệch, rồi tung mỗi đồng xu 20 lần.
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 8.000 thử nghiệm tung một đồng xu công bằng 20 lần và 2.000 thử nghiệm tung một đồng xu lệch 20 lần. Lưu lần lượt vào
fair_flipsvàbiased_flips. - Tìm số trường hợp cho ra đúng 14 mặt ngửa từ mỗi loại đồng xu, lưu lần lượt vào
fair_14vàbiased_14. - Tìm tỉ lệ trong tất cả đồng xu cho ra 14 mặt ngửa mà là đồng xu công bằng: đây là ước lượng xác suất hậu nghiệm rằng đồng xu 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 8000 cases of flipping a fair coin, and 2000 of a biased coin
fair_flips <-
biased_flips <-
# Find the number of cases from each coin that resulted in 14/20
fair_14 <-
biased_14 <-
# Use these to estimate the posterior probability