week 4 R assignment