CO2 <- read.csv("CO2_broken.csv",sep = "")
?read.csv