Fungsi untuk mensimulasikan satu putaran dengan taruhan
Sekarang mari kita menulis fungsi yang mensimulasikan satu putaran dalam model von Neumann, dengan memasukkan mekanisme taruhan.
Pemain B akan mengamati nilainya, lalu memutuskan apakah akan bertaruh $1 atau tidak. Jika memutuskan untuk bertaruh, kedua pemain membandingkan nilai dan nilai yang lebih tinggi menang. Perhatikan bahwa jika Pemain B bertaruh dan menang, hasilnya adalah positif 1; jika mereka bertaruh dan kalah, hasilnya negatif 1. Jika Pemain B memutuskan untuk tidak bertaruh, maka tidak ada uang yang dimenangkan atau dikalahkan oleh kedua pemain.
Di sini, kita mengasumsikan bahwa Pemain B memiliki strategi tetap: jika nilainya di atas batas tertentu, maka ia akan bertaruh. Batas ini, bet_cutoff, akan menjadi argumen untuk fungsi.
Latihan ini adalah bagian dari kursus
Teka-teki Probabilitas di R
Petunjuk latihan
- Tentukan apakah Pemain B akan memutuskan untuk bertaruh.
- Jika mereka bertaruh, kembalikan hasil taruhannya menggunakan fungsi
ifelse.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
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)
}
}