I have a number of chromatograms saved as .csv files in a folder that look something liketime <- c(