1.绘制二项分布和负二项分布的分布图，并简要描述分布特征。

二项分布

n <- 14
p <- 0.53
k <- seq(0,n)
plot(k,dbinom(k,n,p),type='h',
     main='二项分布图,n=14,p=0.53',xlab='进行14次实验成功x次的概率k')

分布特征：在十四次实验中，成功7次的概率k最大，且向两端递减，在两端（成功0或14次）的概率非常小。

负二项分布

n <- 20
p <- 0.514
k <- seq(0,50)
plot(k,dnbinom(k,n,p),type='h',
     main='负二项分布图，n=20,p=0.514',xlab='失败x次时成功20次的概率k')

分布特征：当失败17和18次时，成功20次的概率k最大，且向两端递减。失败小于3次和多于42次时成功20次的概率非常小。

2.绘制泊松分布的分布图，并简要描述分布特征

lambda <- 5.14
k <- seq(0,15)
plot(k,dpois(k,lambda),type='h',
     main='泊松分布图，lambda=5.14',xlab='随机事件发生的次数k')

分布特征：事件发生5次的概率最大，向两端递减。

3.绘制正态分布的分布图，并简要描述分布特征

curve(dnorm(x,0,0.514),xlim = c(-2.5,2.5),ylim=c(0,0.8),
      col="#66ccff",lwd=2)

分布特征：因为该正态分布均值为0，因此在x=0处取得最大值，且向两端对称地递减。

4.绘制df=1，5，10的t分布的分布图

curve(dt(x,1),xlim=c(-3,3),ylim=c(0,0.4),
      col='#00ffcc',lwd=2)
curve(dt(x,5),add=T,col='#66ccff',lwd=2)
curve(dt(x,10),add=T,col='#ee0000',lwd=2)

5.绘制df=2,4,6,8,10的卡方分布的分布图

curve(dchisq(x,2),xlim=c(0,10),ylim=c(0,0.3),col='#66ccff')
curve(dchisq(x,4),add=T,col='#00ffcc')
curve(dchisq(x,6),add=T,col='#ee0000')
curve(dchisq(x,8),add=T,col='#66ccff')
curve(dchisq(x,10),add=T,col='#00ffcc')

6.绘制n1=6,n2=3的F分布的分布图

curve(df(x,6,3),xlim=c(0,10),ylim=c(0,0.6),col='#66ccff',lwd=3)

7.用命令rnorm()产生正态分布随机数，用直方图呈现数据的分布并添加密度曲线，并简要描述数据特征。

N <- 1000000
miu <- 50
sigma <- 5
x <- rnorm(N,miu,sigma)
hist(x,
     xlim=c(min(x),max(x)),probability=T,
     nclass=max(x)-min(x)+1,col='#66ccff',
     main='正态分布图，μ=50，σ=5')
lines(density(x,bw=1),col='#ee0000',lwd=2)