Working functions cachematrix.R with comments