16 yazıdan sonra simülasyonla güncelleme
Adil (yazı gelme olasılığı %50) ya da yanlı (yazı gelme olasılığı %75) bir paradan 20 atışın 16'sının yazı geldiğini görüyoruz. Paranın adil olma olasılığı nedir?
Bu egzersiz, kursun bir parçasıdır
R ile Olasılığın Temelleri
Egzersiz talimatları
- Adil bir parayla (yazı gelme olasılığı %50) ve yanlı bir parayla (yazı gelme olasılığı %75) 20 atıştan 50.000 vaka simüle et. Bu değişkenleri sırasıyla
fairvebiasedolarak kaydet. - Tam olarak 16/20 yazı gelen adil paraların sayısını ve tam olarak 16/20 yazı gelen yanlı paraların sayısını bul. Bunları sırasıyla
fair_16vebiased_16olarak kaydet. - 20 atışta 16 kez yazı gelen tüm paralar arasında adil olanların payını yazdır — bu, 16/20 gözlenen bir paranın adil olmasına dair ardıl (posterior) olasılıktır.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# Simulate 50000 cases of flipping 20 coins from fair and from biased
fair <-
biased <-
# How many fair cases, and how many biased, led to exactly 16 heads?
fair_16 <-
biased_16 <-
# Find the fraction of fair coins that are 16 out of all coins that were 16