Week 7 R Assignment MD