My own R code and plots for the project.