更新其他結果的後驗機率

在上一題中，你已經求出：在 20 次擲幣中出現 11 次正面，且事前認為硬幣「公平」或「有偏」的機率相同時，該硬幣為公平的機率。回想一下，程式碼大致如下：

probability_fair <- dbinom(11, 20, .5)
probability_biased <- dbinom(11, 20, .75)
probability_fair / (probability_fair + probability_biased)

現在，請用 dbinom() 的做法，計算另外兩種結果下的後驗機率。