Tung đồng xu với prop_model

Hàm prop_model đã được nạp vào workspace của bạn. Hàm này triển khai một mô hình Bayesian với các giả định:

• data là một vector gồm các lần thành công và thất bại, được biểu diễn bằng 1 và 0.
• Tồn tại một tỷ lệ thành công cơ bản nhưng chưa biết.
• Trước khi cập nhật bằng dữ liệu, mọi tỷ lệ thành công cơ bản đều có khả năng như nhau.

Giả sử bạn vừa tung một đồng xu bốn lần và kết quả lần lượt là sấp, ngửa, ngửa, sấp. Nếu bạn mã hóa sấp là thành công và ngửa là thất bại, thì đoạn R sau sẽ chạy prop_model với dữ liệu này

data <- c(1, 0, 0, 1)
prop_model(data)