Adding the R file with code for the final model