function for cache inverse matrix
modified cacheMatrix.R