Update cachematrix.R

folloe the