finished R Programming Assignment 2