R programing - Assigment 2