Modify cachematrix.R

    implement it