R Code for caching the Inverse of a Matrix