ฟังก์ชันจำลองหนึ่งรอบการเล่นพร้อมการเดิมพัน
ต่อไปจะเขียนฟังก์ชันที่จำลองหนึ่งรอบการเล่นภายใต้โมเดล von Neumann โดยรวมการเดิมพันเข้าไปด้วย
Player B จะดูค่าของตนเอง แล้วตัดสินใจว่าจะเดิมพัน $1 หรือไม่ หากตัดสินใจเดิมพัน ผู้เล่นทั้งสองจะเปรียบเทียบค่ากัน และผู้ที่มีค่าสูงกว่าจะชนะ โดยถ้า Player B เดิมพันและชนะ ผลลัพธ์จะเป็น +1 แต่ถ้าเดิมพันและแพ้ ผลลัพธ์จะเป็น -1 และหาก Player B ตัดสินใจไม่เดิมพัน ก็จะไม่มีฝ่ายใดได้หรือเสียเงิน
ในที่นี้จะสมมติให้ Player B ใช้กลยุทธ์คงที่ กล่าวคือ หากค่าของตนสูงกว่าค่าตัดขาดที่กำหนด Player B จะเดิมพัน โดย bet_cutoff จะเป็นอาร์กิวเมนต์ของฟังก์ชันนี้
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
Probability Puzzles in R
คำแนะนำการฝึกหัด
- กำหนดว่า Player 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)
}
}