Update Thesis Code.R