#区间估计与假设检验之间的联系
i=0
while (i<1.5) {
  x <- seq(-3,3,length = 5000)
  y <- dnorm(x,0,1)
  a<-plot(x,y,col="red",xlim = c(-3,3),ylim = c(0,0.5),type = 'l', ylab =
            'denisity',main='区间估计与假设检验之间的联系',sub="蓝色区域为置信区间，两侧空白区域为假设检验中双侧检验的拒绝域")
  if (i<1.5){
  q=seq(0,i,length=floor(80*i))
  abline(v=c(q,-q),col="blue")
  text(-i-0.2,0.15,"→"); text(i+0.2,0.15,"←")
  text(0,0.1,"置信区间")
  text(-2.5,0.2,"P=α");text(-1.7,0.05,"α/2");text(1.7,0.05,"α/2")
  i=i+0.05
  Sys.sleep(.1)}
}