Added code in both functions in the cachematrix.R file