R code for cached inverse matrix function set