Initial submission of the R file for Week 3 assignment.