R-Script to Cache the Inverse of a Matrix