Completed Programming Assignment 2

Added my tested/working functions to the empty R script