updated with the R file that reads the data in