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