modify cachematrix.R