Update cachematrix.R

First untested draft