Initial file from Repo
R functions completed for Assignment 2