Update cachematrix.R

Provice a function to create a matrix with special functions to caching the inverse of a Matrix and a function to inverse the matrix