Programming Assignment 1 of R Programming