An R-script to cache the inverse of a matrix