create cachematrix.R