Added code to cachematrix.R