cacheMatrix.R modified