Added R code that can cache inverse of matrix