prop_model के साथ सिक्का उछाल

फ़ंक्शन prop_model आपके वर्कस्पेस में लोड किया गया है। यह एक Bayesian मॉडल लागू करता है, जो मानता है कि:

• data सफलताओं और असफलताओं का एक वेक्टर है, जिसे 1 और 0 से दर्शाया गया है।
• सफलता का एक अज्ञात अंतर्निहित अनुपात होता है।
• डेटा से अपडेट होने से पहले, सफलता का कोई भी अंतर्निहित अनुपात समान रूप से संभव है।

मान लीजिए आपने सिक्का 4 बार उछाला और परिणाम आए: heads, tails, tails, heads. अगर आप heads को सफलता और tails को असफलता कोड करते हैं, तो नीचे दिया गया R कोड इस डेटा के साथ prop_model चलाता है:

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