Xác suất thắng cược pass line
Bây giờ, bạn sẽ dùng các hàm đã tạo trước đó để mô phỏng 10.000 ván Craps nhằm ước lượng xác suất thắng cược pass line. Các hàm roll_dice và evaluate_first_roll() mà bạn đã viết trước đó đã được nạp sẵn để dùng trong bài tập này. Nhớ rằng hàm evaluate_first_roll() nhận lần tung đầu tiên của shooter làm đầu vào và quyết định điều gì sẽ xảy ra tiếp theo.
Bài tập này là một phần của khóa học
Câu đố Xác suất với R
Hướng dẫn bài tập
- Thực hiện lần tung đầu tiên của shooter bằng cách mô phỏng việc tung hai xúc xắc.
- Dựa trên giá trị của lần tung đầu, xác định cược pass line sẽ thắng hay thua và lưu kết quả vào vector
won.
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.
set.seed(1)
won <- rep(NA, 10000)
for(i in 1:10000){
# Shooter's first roll
roll <- ___
# Determine result and store it
won[_] <- ___
}
sum(won)/10000