Memperbarui dengan prior
Kita melihat 14 dari 20 lemparan menghasilkan gambar, dan kita mulai dengan keyakinan 80% bahwa koinnya adil dan 20% bahwa koinnya bias ke 75%.
Anda akan menyelesaikan kasus ini dengan simulasi, dengan memulai dari "ember" berisi 10.000 koin, di mana 8.000 koin adil dan 2.000 koin bias, lalu melempar masing-masing sebanyak 20 kali.
Latihan ini adalah bagian dari kursus
Dasar-dasar Probabilitas di R
Petunjuk latihan
- Simulasikan 8.000 percobaan melempar koin adil 20 kali dan 2.000 percobaan melempar koin bias 20 kali. Simpan sebagai
fair_flipsdanbiased_flips. - Cari banyaknya kasus yang menghasilkan 14 gambar dari masing-masing koin, lalu simpan sebagai
fair_14danbiased_14. - Temukan fraksi dari seluruh koin yang menghasilkan 14 gambar yang merupakan koin adil: ini adalah perkiraan probabilitas posterior bahwa koin tersebut adil.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# Simulate 8000 cases of flipping a fair coin, and 2000 of a biased coin
fair_flips <-
biased_flips <-
# Find the number of cases from each coin that resulted in 14/20
fair_14 <-
biased_14 <-
# Use these to estimate the posterior probability