Create CacheSolve.R