ozon <- read.table("ozono.txt",header=T)
Ozono<-ozon$OZONO
Control<-ozon[,1]



par(mfrow=c(2,1))

 hist(Ozono)
hist(Control)




par(mfrow=c(2,1))

 hist(Ozono,col = "blue", border = NULL,probability=T,
     main = "Histograma",ylab="Frecuencias Relativas", xlab=" Ozono")

hist(Control,col = "green", border = NULL,probability=T,
     main = " ",ylab="Frecuencias Relativas", xlab=" Control")


corte <- seq(-20,40,10)

 hist(Ozono,col = "blue", border = NULL,probability=T,breaks=corte,
     main = "Histograma",ylab="Frecuencias Relativas", xlab=" Ozono",ylim=c(0,0.07))

hist(Control,col = "green", border = NULL,probability=T,breaks=corte,
     main = " ",ylab="Frecuencias Relativas", xlab=" Control",ylim=c(0,0.07))

 
col <- colours()
length(col)
[1] 657