Rename R code to R code- exercise 1