R file with 2 functions to get an inverse matrix and cache it