data("airquality")
summary(airquality)
##      Ozone           Solar.R           Wind             Temp      
##  Min.   :  1.00   Min.   :  7.0   Min.   : 1.700   Min.   :56.00  
##  1st Qu.: 18.00   1st Qu.:115.8   1st Qu.: 7.400   1st Qu.:72.00  
##  Median : 31.50   Median :205.0   Median : 9.700   Median :79.00  
##  Mean   : 42.13   Mean   :185.9   Mean   : 9.958   Mean   :77.88  
##  3rd Qu.: 63.25   3rd Qu.:258.8   3rd Qu.:11.500   3rd Qu.:85.00  
##  Max.   :168.00   Max.   :334.0   Max.   :20.700   Max.   :97.00  
##  NA's   :37       NA's   :7                                       
##      Month            Day      
##  Min.   :5.000   Min.   : 1.0  
##  1st Qu.:6.000   1st Qu.: 8.0  
##  Median :7.000   Median :16.0  
##  Mean   :6.993   Mean   :15.8  
##  3rd Qu.:8.000   3rd Qu.:23.0  
##  Max.   :9.000   Max.   :31.0  
##

Interpretación.

En la anterior tabla se presentan las estadísticas descriptivas asociadas a la calidad del aire en estados unidos.

hist (airquality$Ozone, col = "red")

hist(airquality$Solar.R, col="blue")

hist(airquality$Wind, col = "green")

hist(airquality$Temp, col = "skyblue")

Interpretación Histogramas

El primer gráfico, representa el histograma de la variabale nivel de ozono, el cual esta presentando datos atípicos de valores elevados del Ozono. El segundo grafico es el histograma para la variable radiación solar el cual presenta un promedio cercano a los 200. El tercer gráfico, hace referencia al histograma de la variable velocidad del viento, donde su promedio esta cercano a 10. Por último, se presenta el histograma de la variable temperatura donde su promedio esta cercano a los 80 grados.

Graficos de Correlación (Dispersion)

plot(airquality$Ozone, airquality$Temp, col="blue")

data2 = na.omit(airquality)
cor(data2$Ozone, data2$Temp)

Se observa una correlación es de 0.6985, lo cuál indica que a mayor nivel de Ozono mayor temperatura.

AGREGAR IMAGENES

Caption
Caption