editing cachematrix.R