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