Adding week 4 R assignment