Project 1 in R