Turning in Assignment

Added R code to template