knitr::opts_chunk$set(echo =TRUE)

U1A7 ANALISIS DE CALIDAD DEL AIRE

IMPORTAR

library(pacman)
p_load("read", "tidyverse", "DT", "prettydoc")
## Installing package into 'C:/Users/electronica/Documents/R/win-library/3.6'
## (as 'lib' is unspecified)
## Warning: package 'read' is not available (for R version 3.6.3)
## Warning: unable to access index for repository http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/3.6:
##   no fue posible abrir la URL 'http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/3.6/PACKAGES'
## Warning: 'BiocManager' not available.  Could not check Bioconductor.
## 
## Please use `install.packages('BiocManager')` and then retry.
## Warning in p_install(package, character.only = TRUE, ...):
## Warning in library(package, lib.loc = lib.loc, character.only = TRUE,
## logical.return = TRUE, : there is no package called 'read'
## Warning in p_load("read", "tidyverse", "DT", "prettydoc"): Failed to install/load:
## read

datos

*datos de calidad del aire para los contaminandtes atmosfericos o3 de la estacion ERNO en la UNAM en Hermosillo para el mes de marzo de 2020

datos <- read.csv("aire.csv")

visualizar dato

tabla

datatable(datos)

##grafica

O3 <- datos$O3
NO2 <-datos$NO2
aire <- data.frame(O3,NO2)
pairs(aire)

# analisis de correlacion 
cor(aire)
##            O3       NO2
## O3  1.0000000 0.1882128
## NO2 0.1882128 1.0000000