library(pacman)
p_load("readr","tidyverse","DT","prettydoc")
Datos de calidad de aire para los contaminantes atmosféricos O3 y NO2 de la estación ERNO de la UNAM en Hermosillo para el mes de Agosto de 2020
datos <- read.csv("agosto.csv")
datatable(datos)
O3 <- datos$O3
NO2 <- datos$NO2
aire <- data.frame(O3, NO2)
pairs(aire)
#Análisis de crrelación
cor(aire)
## O3 NO2
## O3 1.00000000 -0.01808127
## NO2 -0.01808127 1.00000000