Create cacheSolve.R

This is the R code for the function cacheSolve