包含下注的一轮模拟函数
现在请编写一个函数，在 von Neumann 模型下模拟一轮博弈，并将下注行为纳入其中。
玩家 B 会观察自己的数值，并决定是否下注 $1。若决定下注，则两位玩家比较数值，高者获胜。请注意：如果玩家 B 下注且获胜，结果为正 1；若下注但失败，结果为负 1。若玩家 B 决定不下注，则双方都不赢不输钱。
这里我们假设玩家 B 采用固定策略：如果自己的数值高于某个阈值，就会下注。这个阈值 bet_cutoff 将作为函数的参数。
本练习是课程的一部分
R 中的概率谜题
练习说明
- 判断玩家 B 是否会选择下注。
- 如果确实下注，使用
ifelse函数返回下注结果。
交互式实操练习
通过完成这段示例代码来试试这个练习。
one_round <- function(bet_cutoff){
a <- runif(n = 1)
b <- runif(n = 1)
# Fill in betting condition
if(___){
# Return result of bet
return(___)
} else {
return(0)
}
}