Project 1 R scripts