Exercise 001 R Codes