Add R program to calculate and cache the inverse of matrix