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