InClass1

First in class R assignment