Script to read the csv into R