R programming - assignment 2