Course Project 1 - R file