Project 1 --- R Scripts