R assignment 2

completed