Added the R code in cachematrix file