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  
##

Interpretacion

en la anterior tabla se presentan estadisticas 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="black")

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

###interpretacion histogramas

El primer gráfico, representa el histograma de la variable nivel de Ozono, el cuál esta presentando datos atípicos en valores elevados del Ozono. El segundo gráfico, es el histograma para la variable radiación solar el cuál 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 (Dispersión).

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

data2 = na.omit(airquality)
cor(data2$Ozone, data2$Temp)
## [1] 0.6985414

###Agregar Imagenes

caption
caption

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.