Create ProjectCode.R

Adding code for analysis.