##IMPORTAR
library(pacman)
p_load("readr", "tidyverse", "DT", "prettydoc")
##Datos
Datos de calidad del aire para los contaminantes atmosfericos O3 y NO2 de estacion ERNO de la UNAM en hermosillo para el mes de Julio de 2020
datos <- read.csv("Aire1.csv")
datatable(datos)
O3 <- datos$O3
NO2 <- datos$NO2
Aire1 <- data.frame(O3, NO2)
#pairs(Aire1)