Here lies the R Scripts for the Thesis