R Code - First assignment