Week 4 Assignment

R file for Week 4 assignment