R Programming Week-2, Programming assignment 1