Rewrote cachematrix.R