Project 1

R code