This is my R script for the project.