Update function cachematrix.R