Slide 22
Slide 22 text
積み上げ結果を確率に直した
結果
par(mfrow=c(3,3))
for(i in 1:9){
n <- 20
p <- 0.1 * i
mu <- n*p
sigma <- sqrt(n*p*(1 - p))
x <- seq(0, 20)
y <- dbinom(x,n,p)
plot(x, y,
lwd = 4,
col = 'gray',
las = 1,
bty = 'l',
yaxs = 'i',
ylim = c(0, 0.3),
type="n")
lines(x,
dnorm(x,
mean = mu,
sd = sigma),
col = 'gray',
lwd = 2)
title(main =
sprintf('n=%s, p=%.1f', n, p))
abline(v=7,col="red")
}