mine R Programming Assignment 2