Menulis fungsi untuk "berpindah"
Sebelum kita mensimulasikan skenario "berpindah", mari terlebih dahulu menulis sebuah fungsi untuk melakukan pembukaan pintu dalam konteks ini. Kita kemudian akan menggunakan fungsi ini pada latihan berikutnya untuk mensimulasikan peluang menang saat berpindah.
Ingat bahwa jika pintu yang dipilih pertama kali benar, maka pembawa acara akan secara acak memilih salah satu dari dua pintu lainnya untuk dibuka.
Jika pintu yang dipilih pertama kali salah, maka pembawa acara akan membuka pintu salah lainnya. Perhatikan bahwa tidak ada unsur acak dalam pembukaan pintu pada kasus ini.
Latihan ini adalah bagian dari kursus
Teka-teki Probabilitas di R
Petunjuk latihan
- Jika pilihan awal benar, gunakan fungsi
sampleuntuk secara acak memilih salah satu pintu lainnya untuk dibuka. - Jika tidak, pilih satu-satunya pintu yang tersisa untuk dibuka.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
reveal_door <- function(doors, prize, initial_choice){
if(prize == initial_choice){
# Sample at random from the two remaining doors
reveal <- sample(x = ___, size = 1)
} else {
# When the prize and initial choice are different, reveal the only remaining door
reveal <- ___
}
}