Update Week 4 Assignment.R