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)
留言
張貼留言