Create a R object that caches the inverse of a matrix