added my R code to the ProgrammingAssingment2 file