Lempar koin dengan prop_model

Fungsi prop_model telah dimuat ke ruang kerja Anda. Fungsi ini mengimplementasikan model Bayesian yang mengasumsikan bahwa:

• data adalah sebuah vektor berisi keberhasilan dan kegagalan yang direpresentasikan oleh 1 dan 0.
• Ada proporsi keberhasilan yang mendasari namun tidak diketahui.
• Sebelum diperbarui dengan data, setiap nilai proporsi keberhasilan yang mendasari sama mungkinnya.

Misalkan Anda baru saja melempar koin empat kali dengan hasilnya adalah kepala, ekor, ekor, kepala. Jika Anda mengodekan kepala sebagai keberhasilan dan ekor sebagai kegagalan, maka kode R berikut menjalankan prop_model dengan data tersebut

data <- c(1, 0, 0, 1)
prop_model(data)