File cachematrix.R modified