This is my Programming Assignment 2 in R Programming Course