tbutler54 r-prog assignment 2