通行线押注的获胜概率
现在，我们将使用先前创建的函数来模拟 10,000 局 Craps，以估计通行线押注的获胜概率。您之前编写的 roll_dice 和 evaluate_first_roll() 函数已为您预加载，可在本练习中使用。回顾一下，evaluate_first_roll() 函数以射手的第一次掷骰结果为输入，并据此决定接下来会发生什么。
本练习是课程的一部分
R 中的概率谜题
练习说明
- 通过模拟掷两枚骰子来完成射手的第一次掷骰。
- 使用第一次掷骰的点数组合来判断通行线押注是赢还是输，并将结果存入
won向量。
交互式实操练习
通过完成这段示例代码来试试这个练习。
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