Submission1

R prog project submission 1