Course Project R Code file