Update cachematrix.R

follow the example