Adding the .r file with the function to generate an inverse matrix of x