CO2 <- read.csv("co2_good.csv", header = TRUE)