Cập nhật bằng định lý Bayes
Trong chương này, bạn đã dùng mô phỏng để ước lượng xác suất hậu nghiệm rằng một đồng xu cho 11 lần ngửa trong 20 lần tung là công bằng. Giờ bạn sẽ tính lại, lần này dùng các xác suất chính xác từ dbinom(). Có 50% khả năng đồng xu là công bằng và 50% khả năng đồng xu là lệch (thiên về ngửa).
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
- Dùng hàm
dbinom()để tính xác suất chính xác nhận được 11 lần ngửa trong 20 lần tung với đồng xu công bằng (xác suất ngửa 50%) và với đồng xu lệch (xác suất ngửa 75%). Lưu lần lượt vàoprobability_fairvàprobability_biased. - Dùng các giá trị này để tính xác suất hậu nghiệm rằng đồng xu là công bằng. Đây là xác suất nhận được 11 lần ngửa từ đồng xu công bằng, chia cho tổng của hai xác suất.
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.
# Use dbinom to calculate the probability of 11/20 heads with fair or biased coin
probability_fair <-
probability_biased <-
# Calculate the posterior probability that the coin is fair