R Programming: Programming_Assignment_2