#1 complete the R code cachematrix.R