R Programming programming assignment 2