Uploaded completed R file for project