R  Programming - Assignment 2