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