John Hopkins R Programming Assignment 2 for week 03