created pair of functions in cachematrix.R to cache the inverse of a matrix