Inserted functions into cacheFunctions.R