Programming Assignment 2 on R programing COURSERA, JJVD