Rで二項分布とパーセント点の垂線を描画する
として、二項分布の曲線と95%点の垂線を描画します。
x <- dbinom(0:1000, 1000, 0.5) plot(x, type="l", xlim=c(400, 600), yaxs="i", xlab="X", ylab="Prob.") x1 <- qbinom(1-0.05, 1000, 0.5) #1-0.05 = 0.95 = 95% segments(x1, 0, x1, x[x1])
として、二項分布の曲線と95%点の垂線を描画します。
x <- dbinom(0:1000, 1000, 0.5) plot(x, type="l", xlim=c(400, 600), yaxs="i", xlab="X", ylab="Prob.") x1 <- qbinom(1-0.05, 1000, 0.5) #1-0.05 = 0.95 = 95% segments(x1, 0, x1, x[x1])