file originally given
original file
Code used to display results as graphs in RStudio