I have modified cachematrix.R