Distribuição Normal

    plot(seq(-3.2,3.2,length=50),dnorm(seq(-3,3,length=50),0,1),type="l",xlab="",ylab="",ylim=c(0,0.5))

    # 68% dos dados
    segments(x0 = c(-1,1),y0 = c(-1,-1),x1 = c(-1,1),y1=c(0.25,0.25))
    text(x=0,y=0.15,labels = expression("68% dos dados até 1" * sigma),cex=0.9)

    # 95% dos dados
    segments(x0 = c(-2,2),y0 = c(-1,-1),x1 = c(-2,2),y1=c(0.4,0.4))
    text(x=0,y=0.3,labels = expression("95% dos dados até 2" ~ sigma))
    arrows(x0=c(-1.5,1.5),y0=c(0.3,0.3),x1=c(-2,2),y1=c(0.3,0.3))

    # 99,7% dos dados
    segments(x0 = c(-3,3),y0 = c(-1,-1),x1 = c(-3,3),y1=c(1,1))
    text(x=0,y=0.45,labels = expression("99.7% dos dados até 3" ~ sigma))
    arrows(x0=c(-2,2),y0=c(0.45,0.45),x1=c(-3,3),y1=c(0.45,0.45))