随机变量遵循二项式分布且概率变化的概率密度函数

Question

我有一个遵循二项式分布的变量 X〜Bin（p，15），观察到的结果是3。

现在，我想绘制一个具有p的所有不同可能值（从0到1）的密度函数。换句话说，我想绘制密度函数，以显示当p为0，... 0.5 ... 1时观察结果3的可能性。

我该怎么办？

Answer 1

likelihood <- function(p) (
  return(dbinom(3, size = 15, prob = p))
)

curve(likelihood)