Project 1 R script