Update cachematrix.R

Fill in function body