二项分布图

#二项分布概率值比较图(n=10,p=0.2)

par(mfcol=c(2,2))

plot(seq(0,8),dbinom(seq(0,8),8,0.918),xlab='X',ylab='P',type='h',l wd=4)

points(seq(0,8),dbinom(seq(0,8),8,0.918),xlab='',ylab='',pch=16,co l='red')

text(8, 0.25, "n=10,p=0.2")

plot(seq(0,10),dbinom(seq(0,10),10,0.4),xlab='X',ylab='P',type='h', lwd=4)

points(seq(0,10),dbinom(seq(0,10),10,0.4),xlab='',ylab='',pch=16,c ol='red')

text(8, 0.25, "n=10,p=0.4")

plot(seq(0,10),dbinom(seq(0,10),10,0.6),xlab='X',ylab='P',type='h', lwd=4)

points(seq(0,10),dbinom(seq(0,10),10,0.6),xlab='',ylab='',pch=16,c ol='red')

text(8, 0.25, "n=10,p=0.6")

plot(seq(0,10),dbinom(seq(0,10),10,0.8),xlab='X',ylab='P',type='h', lwd=4)

points(seq(0,10),dbinom(seq(0,10),10,0.8),xlab='',ylab='',pch=16,c ol='red')

text(8, 0.25, "n=10,p=0.8")

#二项分布分布函数值比较图(n=10,p=0.2:0.8)

plot(seq(0,10),pbinom(seq(0,10),10,0.2),xlab='X',ylab='F',type='b', col=21)

lines(seq(0,10),pbinom(seq(0,10),10,0.4),xlab='X',ylab='F',type='b' ,col=35)

lines(seq(0,10),pbinom(seq(0,10),10,0.6),xlab='X',ylab='F',type='b' ,col='red')

lines(seq(0,10),pbinom(seq(0,10),10,0.8),xlab='X',ylab='F',type='b' ,col=81)

##关于当n*p为小数时，在(n+1)*p处下取整概率值最大问题？

np=function(n,p) {

q=

pbinom(q, n,p ) }