R Programming - assignment 2