Likelihood vs probability

binom=dbinom(0:8, 8, 0.5)

barplot(binom, xlab = "Number of heads", ylab = "Probability")


p <- seq(0, 1, 0.01)

y <- dbinom(4, 8, p)

plot(p, y, type = "l", main = "Binomial PMF for x = 4, n = 8", xlab = "Probability", ylab = "Likelihood")


x <- seq(-0.5, 1.5, 0.01)

y <- dnorm(x, mean = 0.5, sd = 0.2)

plot(x, y, type = "l", main = "Normal PDF for x = 0.1, mean = 0.5, sd = 0.2", xlab = "x", ylab = "Probability density")

abline(v=0.3)

留言

這個網誌中的熱門文章

可轉移性、普遍性、代表性和外部有效性

頻率學派 vs 貝氏學派

貝氏分析計算器