第1種の過誤・第2種の過誤の部分に色を付けたもの。
A graph of binomial distribution with colors on type-I and -II errors.
par(mfrow=c(2,1))
n <- 10
k <- 8
p0 <- 0.5
p <- 0.8
x <- 0:n
d <- c(rep(0, k), rep(50, n-k+1))
a <- dbinom(x, size=n, prob=p0)
barplot(a, names.arg=x, density=d, xlab="x", ylab="P(x)", ylim=c(0, 0.3))
d <- c(rep(50, k), rep(0, n-k+1))
a <- dbinom(x, size=n, prob=p)
barplot(a, names.arg=x, density=d, xlab="x", ylab="P(x)", ylim=c(0, 0.3))