R programming, Assignment 1