模擬含下注的一回合函式
現在來撰寫一個在 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)
}
}