Update cachematrix.R

Create cacheSolve function