Update the cachematrix r script to calculate the inverse of the matrix based on the special vector