Adding week2 R assignment code