cachematrix.R with functions