added code in cachematrix.R