R ´Programming  Assignment 2