modified cacheNatrix.r to include function to cache an inverse of a matrix