add week two R practice from the lectures.