R code for caching the inverse of a matrix