alfa_.05
 
extremo.izdo_-3
extremo.dcho_ 3
ejex_seq(extremo.izdo,extremo.dcho,length=1000)
ejey_dnorm(ejex)
plot(ejex,ejey,type="l",xlab="",ylab="f. densidad normal",cex=.5,ylim=c(0,0.7))

critico.izdo_qnorm(alfa/2)
critico.dcho_qnorm(1-alfa/2)

######### Rellenamos la cola izda

ejex_seq(extremo.izdo,critico.izdo,length=100)
ejey_c(dnorm(ejex),0,0)
ejex_c(ejex,critico.izdo,extremo.izdo)
polygon(ejex,ejey,col=2)

######### Rellenamos la cola derecha

ejex_seq(critico.dcho,extremo.dcho,length=100)
ejey_c(dnorm(ejex),0,0)
ejex_c(ejex,extremo.dcho,critico.dcho)
polygon(ejex,ejey,col=3)

######### Rellenamos el centro de la curva

ejex_seq(critico.izdo,critico.dcho,length=100)
ejey_c(dnorm(ejex))
polygon(ejex,ejey,col=4)

polygon(critico.izdo,critico.dcho,critico.dcho,critico.izdo)