Function For R Peer Assignment 2