add week 6 R HW