Completed the file cachematrix.R, so that the R functions calculate and cache the inverse of a matrix