R Programming - Programming Assignment 2 Attempt