my change to cachematrix.R