R-Programming Assignment 3