CO2<-read.csv(file.choose())