cachematrix.R no. 1