added function bodies to 2 functions in cachematrix.R