จำลองโมเดลของ von Neumann หลายรอบ
ทีนี้ลองใช้ฟังก์ชัน one_round ที่เขียนไว้ในแบบฝึกหัดก่อนหน้า เพื่อจำลองการเล่น 10000 รอบ โดยที่กลยุทธ์ของผู้เล่น B คือเดิมพันก็ต่อเมื่อค่าที่ได้มากกว่า 0.5 เป้าหมายคือประมาณค่าความคาดหวังของผู้เล่น B ภายใต้กลยุทธ์นี้
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
Probability Puzzles in R
คำแนะนำการฝึกหัด
- เติมโค้ดในบรรทัดที่รันการจำลองหนึ่งรอบ โดยผู้เล่น B เลือกเดิมพันเมื่อค่าของตนมากกว่า 0.5 แล้วเก็บผลลัพธ์ลงใน
b_win - คำนวณและแสดงค่าความคาดหวังของผู้เล่น B ภายใต้กลยุทธ์นี้
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
b_win <- rep(NA, 10000)
for(i in 1:10000){
# Run one and store result
}
# Print expected value