R Programming - Assign 1 Done