R functions Assignment2

Assignment 2