R Script 1 Made

First attempt at assignment 1, dataset1