my cachematrix.R