Pembaruan dengan tiga jenis koin

Misalkan alih-alih koin hanya adil atau bias, ada tiga kemungkinan: koin adil (50% sisi kepala), rendah (25% sisi kepala), dan tinggi (75% sisi kepala). Peluangnya 80% bahwa koinnya adil, 10% bahwa koinnya bias rendah, dan 10% bahwa koinnya bias tinggi.

Anda melihat 14 dari 20 lemparan menghasilkan kepala. Berapa probabilitas bahwa koin tersebut adil?

Latihan ini adalah bagian dari kursus

Dasar-dasar Probabilitas di R

Lihat Kursus

Petunjuk latihan

Gunakan fungsi rbinom() untuk melakukan simulasi 80.000 pengambilan dari koin adil, 10.000 pengambilan dari koin tinggi, dan 10.000 pengambilan dari koin rendah, dengan setiap pengambilan berisi 20 lemparan. Simpan masing-masing sebagai flips_fair, flips_high, dan flips_low.
Untuk setiap jenis tersebut, hitung jumlah koin yang menghasilkan 14. Simpan masing-masing sebagai fair_14, high_14, dan low_14.
Temukan probabilitas posterior bahwa koinnya adil, dengan membagi jumlah koin adil yang menghasilkan 14 dengan total jumlah koin yang menghasilkan 14.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

# Simulate 80,000 draws from fair coin, 10,000 from each of high and low coins
flips_fair <- 
flips_high <- 
flips_low <- 

# Compute the number of coins that resulted in 14 heads from each of these piles
fair_14 <- 
high_14 <- 
low_14 <- 

# Compute the posterior probability that the coin was fair

Edit dan Jalankan Kode